OFFSET
1,1
COMMENTS
Prime entries in A181573.
MATHEMATICA
f[n_] := IntegerExponent[ Prime@ n!, 10]; Select[ Complement[ Range[0, 600], Array[f, 360]], PrimeQ] (* Robert G. Wilson v, Nov 05 2010 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Nov 01 2010
EXTENSIONS
More terms from Robert G. Wilson v, Nov 05 2010
STATUS
approved