A059699 Primes p such that p^6 reversed is also prime.

107, 389, 461, 673, 757, 1039, 1093, 1493, 1627, 2237, 2341, 2389, 2677, 3001, 3011, 3329, 3467, 3499, 3929, 4397, 4447, 4751, 4993, 5647, 5693, 5701, 5743, 5783, 6469, 6781, 6841, 6869, 6977, 7001, 7013, 7027, 7393, 7457, 7589, 8221, 8311, 8387, 9467

Offset

1,1

Links

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

Mathematica

Select[ Range[ 10000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^6 ] ] ] ] & ]
Select[Prime[Range[2000]], PrimeQ[FromDigits[Reverse[ IntegerDigits[ #^6]]]]&] (* Harvey P. Dale, Aug 30 2013 *)

Prog

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

Crossrefs

Cf. A059207.

Sequence in context: A142018 A106948 A139989 * A142421 A183847 A142696

Adjacent sequences: A059696 A059697 A059698 * A059700 A059701 A059702

Keyword

nonn,base

Author

Robert G. Wilson v, Feb 06 2001

Status

approved