A059704 Primes p such that p^11 reversed is also prime.

17, 73, 83, 157, 277, 293, 359, 661, 739, 863, 1489, 1601, 2311, 2851, 2939, 3499, 3733, 3739, 4423, 4447, 4567, 4793, 5297, 5501, 5519, 5521, 5573, 6379, 6791, 6899, 6983, 7333, 7351, 7411, 7853, 8179, 9001, 9013, 9743, 9787, 10159, 10627, 11119

Offset

1,1

Links

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

Mathematica

Select[ Range[ 16000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^11 ] ] ] ] & ]
Select[Prime[Range[1500]], PrimeQ[IntegerReverse[#^11]]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 24 2020 *)

Prog

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

Crossrefs

Cf. A059212.

Sequence in context: A157864 A229496 A268544 * A269727 A337704 A121243

Adjacent sequences: A059701 A059702 A059703 * A059705 A059706 A059707

Keyword

base,nonn

Author

Robert G. Wilson v, Feb 06 2001

Status

approved