A059703 Primes p such that p^10 reversed is also prime.

2, 53, 103, 113, 131, 257, 317, 409, 787, 1283, 1429, 1657, 2087, 2089, 2687, 2833, 3089, 3191, 3329, 3359, 3889, 4093, 4159, 4513, 4999, 5153, 5683, 5737, 6089, 6317, 6421, 6571, 6679, 6691, 7933, 8971, 8999, 9103, 9743, 10247, 10303, 11213, 11239

Offset

1,1

Links

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

Mathematica

Select[ Range[ 17000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^10 ] ] ] ] & ]
Select[Prime[Range[1500]], PrimeQ[IntegerReverse[#^10]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 25 2019 *)

Prog

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

Crossrefs

Cf. A059211.

Sequence in context: A139841 A167771 A062853 * A212889 A041337 A139844

Adjacent sequences: A059700 A059701 A059702 * A059704 A059705 A059706

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 06 2001

Status

approved