%I #9 Sep 08 2022 08:45:03
%S 2,29,41,71,79,151,193,257,359,379,389,607,739,773,1019,1049,1217,
%T 1409,1427,1481,1667,1997,2297,2551,2593,3181,3253,3701,3821,3851,
%U 3967,4003,4421,5107,5209,5231,5381,5441,5503,6173,6203,6221,6229,6271,7433,7603
%N Primes p such that p^7 reversed is also prime.
%H Vincenzo Librandi, <a href="/A059700/b059700.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 10000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^7 ] ] ] ] & ]
%o (Magma) [p: p in PrimesUpTo(8000) | IsPrime(Seqint(Reverse(Intseq(p^7))))]; // _Vincenzo Librandi: Apr 12 2013
%Y Cf. A059208.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Feb 06 2001