%I #10 Sep 08 2022 08:45:03
%S 7,59,223,907,1021,1109,1231,2237,2383,2417,3929,4201,4297,4783,5107,
%T 5171,5507,5647,7213,8539,8597,9067,9133,9181,9187,9221,9739,9749,
%U 10037,10979,11087,11159,12113,12143,12401,12479,12547,12703,12821
%N Primes p such that p^12 reversed is also prime.
%H Vincenzo Librandi, <a href="/A059705/b059705.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 16000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^12 ]] ]] & ]
%t Select[Prime[Range[2000]],PrimeQ[IntegerReverse[#^12]]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 29 2017 *)
%o (Magma) [p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^12))))]; // _Vincenzo Librandi_, Apr 13 2013
%Y Cf. A059213.
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 06 2001