|
Search: id:A078203
|
|
| |
|
| 1, 2, 3, 5, 6, 14, 15, 24, 74, 191, 222, 276, 2200
(list; graph; listen)
|
|
|
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
|
Cf. A004154, A078154, A078190, A078305.
Sequence in context: A098833 A075371 A057704 this_sequence A131825 A079226 A055686
Adjacent sequences: A078200 A078201 A078202 this_sequence A078204 A078205 A078206
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Cino Hilliard (hillcino368(AT)gmail.com), Dec 23 2002
|
|
EXTENSIONS
|
Extended by Joshua Zucker, Robert G. Wilson v (rgwv(AT)rgwv.com) and Jason Earls (zevi_35711(AT)yahoo.com), Dec 24 2002
"2200" from Don Reble (djr(AT)nk.ca), Jan 12 2006
|
|
|
Search completed in 0.002 seconds
|
