OFFSET
1,2
MATHEMATICA
f[n_] := n!/10^Sum[ Floor[n/5^k], {k, 1, Log[10, n] + 1}]; Do[ If[ PrimeQ[ f[n] + 1], Print[n]], {n, 1, 850}]
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Cino Hilliard, Dec 23 2002
EXTENSIONS
a(13) from Don Reble, Jan 12 2006
a(14)-a(17) from Michael S. Branicky, Jul 23 2023
STATUS
approved