%I #12 Sep 08 2022 08:45:03
%S 2,19,31,61,79,113,359,421,439,443,569,599,643,761,773,787,919,983,
%T 1069,1097,1117,1123,1171,1321,1627,1657,1667,1669,1747,1759,1777,
%U 1831,1913,2341,2347,2351,2389,2399,2441,2917,2957,3089,3181,3253,3299,3571
%N Primes p such that p^4 reversed is also prime.
%H Vincenzo Librandi, <a href="/A059697/b059697.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 5000 ], PrimeQ[ # ] && PrimeQ[ ToExpression[ StringReverse[ ToString[ #^4 ] ] ] ] & ]
%t Select[Prime[Range[500]],PrimeQ[IntegerReverse[#^4]]&] (* _Harvey P. Dale_, May 08 2022 *)
%o (Magma) [p: p in PrimesUpTo(3600) | IsPrime(Seqint(Reverse(Intseq(p^4))))]; // _Vincenzo Librandi_, Apr 12 2013
%Y Cf. A059205.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Feb 06 2001
|