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

Links

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

Mathematica

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

Prog

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

Crossrefs

Cf. A059208.

Sequence in context: A285688 A139833 A260792 * A078329 A340633 A252892

Adjacent sequences: A059697 A059698 A059699 * A059701 A059702 A059703

Keyword

nonn,base

Author

Robert G. Wilson v, Feb 06 2001

Status

approved