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 A059003 #13 Dec 22 2024 20:05:02
%S A059003 61277761,18258901387,526098218446813,52609352682209503,
%T A059003 186386112766353931,526093005165061333,12785316583844897311,
%U A059003 18866248772202954601,104414665083132185191,125722028990735440387,679091464527322606741,1462701398540433470911,6100159128959496276541
%N A059003 Primes whose reversal is an eighth power.
%H A059003 Robert Israel, <a href="/A059003/b059003.txt">Table of n, a(n) for n = 1..10000</a>
%p A059003 rev:= proc(n) local L, i;
%p A059003 L:= convert(n, base, 10);
%p A059003 add(L[-i]*10^(i-1), i=1..nops(L))
%p A059003 end proc:
%p A059003 S:= {}:
%p A059003 for i from 1 to 999 do
%p A059003 if i mod 10 = 0 then next fi;
%p A059003 p:= rev(i^8);
%p A059003 if isprime(p) then S:= S union {p} fi;
%p A059003 od:
%p A059003 sort(convert(S, list)); # _Robert Israel_, Dec 22 2024
%t A059003 Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/8) ], Print[ n ] ], {n, 1, 10^22} ]
%Y A059003 Cf. A007488.
%K A059003 nonn,base
%O A059003 1,1
%A A059003 _Robert G. Wilson v_, Jan 16 2001
%E A059003 More terms from _Sean A. Irvine_, Sep 09 2022