OFFSET
1,1
COMMENTS
No entry of A039716 ends with 5, 11, 17, 21,... consecutive zeros.
MATHEMATICA
f[n_] := IntegerExponent[Prime@n!, 10]; Complement[ Range[0, 157], Array[f, 115]] (* Robert G. Wilson v, Nov 05 2010 *)
zOF[n_Integer?Positive]:=Module[{maxpow=0}, While[5^maxpow<=n, maxpow++]; Plus@@Table[ Quotient[n, 5^i], {i, maxpow-1}]]; Attributes[zOF]={Listable}; With[{z=Union[zOF[Prime[Range[ 150]]]]}, Complement[ Range[Max[z]], z]] (* Harvey P. Dale, Sep 17 2024 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Lekraj Beedassy, Oct 31 2010
EXTENSIONS
Definition rephrased, keyword:base added by R. J. Mathar, Nov 03 2010
More terms from Robert G. Wilson v, Nov 05 2010
STATUS
approved