login
A059705
Primes p such that p^12 reversed is also prime.
2
7, 59, 223, 907, 1021, 1109, 1231, 2237, 2383, 2417, 3929, 4201, 4297, 4783, 5107, 5171, 5507, 5647, 7213, 8539, 8597, 9067, 9133, 9181, 9187, 9221, 9739, 9749, 10037, 10979, 11087, 11159, 12113, 12143, 12401, 12479, 12547, 12703, 12821
OFFSET
1,1
LINKS
MATHEMATICA
Select[ Range[ 16000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^12 ]] ]] & ]
Select[Prime[Range[2000]], PrimeQ[IntegerReverse[#^12]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 29 2017 *)
PROG
(Magma) [p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^12))))]; // Vincenzo Librandi, Apr 13 2013
CROSSREFS
Cf. A059213.
Sequence in context: A181424 A142511 A236070 * A359691 A218201 A015568
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Feb 06 2001
STATUS
approved