A059696 Primes p such that p^3 reversed is also prime.

5, 89, 157, 211, 251, 271, 463, 467, 487, 491, 499, 503, 521, 523, 541, 547, 563, 571, 701, 1069, 1091, 1103, 1129, 1151, 1187, 1217, 1447, 1451, 1487, 1489, 1493, 1979, 1999, 2089, 2339, 2351, 2383, 2437, 2467, 2621, 2657, 2693, 3119, 3121, 3221, 3251

Offset

1,1

Links

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

Mathematica

Select[ Range[ 4000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^3 ] ] ] ] & ]

Prog

(Magma) [p: p in PrimesUpTo(3300) | IsPrime(Seqint(Reverse(Intseq(p^3))))]; // Vincenzo Librandi, Apr 11 2013

Crossrefs

Cf. A059008.

Sequence in context: A136618 A138700 A139937 * A072216 A176608 A277233

Adjacent sequences: A059693 A059694 A059695 * A059697 A059698 A059699

Keyword

nonn

Author

Robert G. Wilson v, Feb 06 2001

Status

approved