%I #9 Sep 08 2022 08:45:03
%S 23,139,239,241,409,431,577,647,761,787,1031,1051,1187,1319,1567,1831,
%T 1879,2069,2087,2281,2347,2351,2521,3061,3167,3347,3433,4049,4231,
%U 4283,4363,4447,4999,5437,5669,5689,5869,7499,7607,7681,7687,7841,7907,8039
%N Primes p such that p^8 reversed is also prime.
%H Vincenzo Librandi, <a href="/A059701/b059701.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 11000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^8 ] ] ] ] & ]
%t Select[Prime[Range[1100]],PrimeQ[IntegerReverse[#^8]]&] (* Requires Mathematica version 10 or higher *) (* _Harvey P. Dale_, May 22 2017 *)
%o (Magma) [p: p in PrimesUpTo(8100) | IsPrime(Seqint(Reverse(Intseq(p^8))))]; // _Vincenzo Librandi_, Apr 12 2013
%Y Cf. A059209.
%K base,nonn
%O 1,1
%A _Robert G. Wilson v_, Feb 06 2001
|