login
A078394
Numbers n such that reverse(A004154(n)) + 1 is prime.
0
1, 2, 3, 4, 39, 256
OFFSET
1,2
COMMENTS
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
Sequence in context: A294921 A332534 A293685 * A375477 A273469 A278939
KEYWORD
base,more,nonn
AUTHOR
Jason Earls, Dec 24 2002
STATUS
approved