%I #9 Sep 08 2022 08:45:03
%S 131,223,541,769,811,829,967,1021,1259,1669,2087,2089,2153,2203,2239,
%T 2699,2777,2851,3163,3499,3767,4159,4507,4591,4721,4999,6271,7673,
%U 9649,10067,10427,10639,10709,10789,11443,11549,12547,13259,13337,14737
%N Primes p such that p^9 reversed is also prime.
%H Vincenzo Librandi, <a href="/A059702/b059702.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 17000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^9 ] ] ] ] & ]
%o (Magma) [p: p in PrimesUpTo(15000)|IsPrime(Seqint(Reverse(Intseq(p^9))))]; // _Vincenzo Librandi_, Apr 12 2013
%Y Cf. A059210.
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 06 2001