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,1

Links

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

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

Adjacent sequences: A059702 A059703 A059704 * A059706 A059707 A059708

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 06 2001

Status

approved