A059701 Primes p such that p^8 reversed is also prime.

23, 139, 239, 241, 409, 431, 577, 647, 761, 787, 1031, 1051, 1187, 1319, 1567, 1831, 1879, 2069, 2087, 2281, 2347, 2351, 2521, 3061, 3167, 3347, 3433, 4049, 4231, 4283, 4363, 4447, 4999, 5437, 5669, 5689, 5869, 7499, 7607, 7681, 7687, 7841, 7907, 8039

Offset

1,1

Links

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

Mathematica

Select[ Range[ 11000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^8 ] ] ] ] & ]
Select[Prime[Range[1100]], PrimeQ[IntegerReverse[#^8]]&] (* Requires Mathematica version 10 or higher *) (* Harvey P. Dale, May 22 2017 *)

Prog

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

Crossrefs

Cf. A059209.

Sequence in context: A042024 A141999 A059915 * A226680 A307660 A036494

Adjacent sequences: A059698 A059699 A059700 * A059702 A059703 A059704

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 06 2001

Status

approved