|
Search: id:A078394
|
|
| |
| |
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Some of the larger entries may only correspond to probable primes.
|
|
MATHEMATICA
|
f[n_] := n!/10^Sum[Floor[n/5^k], {k, 1, Log[10, n] + 1}]; Do[ If[ PrimeQ[ FromDigits[ Reverse[ IntegerDigits[ f[n]]]] + 1], Print[n]], {n, 1, 800}]
|
|
CROSSREFS
|
Cf. A078203, A004154.
Adjacent sequences: A078391 A078392 A078393 this_sequence A078395 A078396 A078397
Sequence in context: A102842 A009263 A084314 this_sequence A037326 A024634 A134305
|
|
KEYWORD
|
base,more,nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Dec 24 2002
|
|
|
Search completed in 0.002 seconds
|
