A059700 Primes p such that p^7 reversed is also prime.

2, 29, 41, 71, 79, 151, 193, 257, 359, 379, 389, 607, 739, 773, 1019, 1049, 1217, 1409, 1427, 1481, 1667, 1997, 2297, 2551, 2593, 3181, 3253, 3701, 3821, 3851, 3967, 4003, 4421, 5107, 5209, 5231, 5381, 5441, 5503, 6173, 6203, 6221, 6229, 6271, 7433, 7603

Offset: 1

Author

Robert G. Wilson v, Feb 06 2001

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A059208.

Programs

Magma

[p: p in PrimesUpTo(8000) | IsPrime(Seqint(Reverse(Intseq(p^7))))]; // _Vincenzo Librandi: Apr 12 2013

Mathematica

Select[ Range[ 10000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^7 ] ] ] ] & ]