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 A059001 #10 Dec 22 2024 16:17:30
%S A059001 61277761,10278214831,424176600403,526098190537,526515941773,
%T A059001 5260934114929,9481530370051,40512620860813,46882459723321,
%U A059001 108153140207347,489332144054323,526046241813643,1619463705594643,1676989428458959,4249139677419331,4878387447701941
%N A059001 Primes whose reversal is a sixth power.
%H A059001 Robert Israel, <a href="/A059001/b059001.txt">Table of n, a(n) for n = 1..10000</a>
%p A059001 rev:= proc(n) local L,i;
%p A059001 L:= convert(n,base,10);
%p A059001 add(L[-i]*10^(i-1),i=1..nops(L))
%p A059001 end proc:
%p A059001 S:= {}:
%p A059001 for i from 1 to 999 do
%p A059001 if i mod 10 = 0 then next fi;
%p A059001 p:= rev(i^6);
%p A059001 if isprime(p) then S:= S union {p}; fi;
%p A059001 od:
%p A059001 sort(convert(S,list)); # _Robert Israel_, Dec 22 2024
%t A059001 Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/6) ], Print[ n ] ], {n, 1, 10^18} ]
%Y A059001 Cf. A007488.
%K A059001 nonn,base
%O A059001 1,1
%A A059001 _Robert G. Wilson v_, Jan 16 2001
%E A059001 More terms from _Sean A. Irvine_, Sep 09 2022