%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