|
|
A114019
|
|
Largest n-digit prime whose digit reversal is also prime.
|
|
4
|
|
|
7, 97, 991, 9967, 99989, 999983, 9999971, 99999827, 999999893, 9999999967, 99999999977, 999999999959, 9999999999799, 99999999999959, 999999999999877, 9999999999999571, 99999999999997997, 999999999999999737, 9999999999999999719, 99999999999999999631
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := Block[{k = 10^n}, While[ !PrimeQ[k] || !PrimeQ[FromDigits@Reverse@IntegerDigits@k], k-- ]; k]; Array[f, 19] (* Robert G. Wilson v, Nov 19 2005 *)
|
|
PROG
|
(Python)
from sympy import isprime
def c(n): return isprime(n) and isprime(int(str(n)[::-1]))
def a(n): return next(p for p in range(10**n-1, 10**(n-1), -2) if c(p))
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|