OFFSET
1,1
COMMENTS
Primes p such that 2^p divides some factorial m!, but 2^(p+1) does not divide m!.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
f[n_] := n - DigitCount[n, 2, 1]; s={}; Do[If[PrimeQ[(p = f[n])], AppendTo[s, p]], {n, 1, 510, 2}]; s (* Amiram Eldar, Sep 13 2019 *)
Select[Table[n-DigitCount[n, 2, 1], {n, 0, 600}], PrimeQ]//Union (* Harvey P. Dale, Oct 10 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Oct 26 2010
EXTENSIONS
Comment and definition swapped by R. J. Mathar, Oct 29 2010
STATUS
approved