A059705 Primes p such that p^12 reversed is also prime.

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

Author

Robert G. Wilson v, Feb 06 2001

Keywords

• base
• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A059213.

Programs

Magma

[p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^12))))]; // Vincenzo Librandi, Apr 13 2013

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 *)