A176620 Primes p for which the factorization of p! over distinct terms of A050376 does not contain 2.
7, 11, 13, 19, 31, 37, 41, 47, 59, 61, 67, 73, 79, 97, 103, 107, 109, 127, 131, 137, 151, 157, 167, 173, 179, 181, 191, 193, 199, 211, 223, 227, 229, 233, 239, 241, 251, 271, 283, 307, 313, 331, 367, 379, 397, 409, 419, 421, 431, 433, 439, 443, 457, 463, 487
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[500], PrimeQ[#] && EvenQ @ IntegerExponent[#!, 2] &] (* Amiram Eldar, Sep 13 2019 *)
Extensions
Corrected (37 added, 41 added, 43 removed...) and extended by R. J. Mathar, Oct 26 2010
Comments