login
Primes p such that p^3 reversed is also prime.
2

%I #7 Sep 08 2022 08:45:03

%S 5,89,157,211,251,271,463,467,487,491,499,503,521,523,541,547,563,571,

%T 701,1069,1091,1103,1129,1151,1187,1217,1447,1451,1487,1489,1493,1979,

%U 1999,2089,2339,2351,2383,2437,2467,2621,2657,2693,3119,3121,3221,3251

%N Primes p such that p^3 reversed is also prime.

%H Vincenzo Librandi, <a href="/A059696/b059696.txt">Table of n, a(n) for n = 1..1000</a>

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

%o (Magma) [p: p in PrimesUpTo(3300) | IsPrime(Seqint(Reverse(Intseq(p^3))))]; // _Vincenzo Librandi_, Apr 11 2013

%Y Cf. A059008.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Feb 06 2001