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