%I #15 Dec 22 2024 20:13:16
%S 4201,940315563074788471,940291214439736193431,948413222299837654933,
%T 1081016161371207738841,4243031147170261950811,
%U 428799714836577410775151,671856480838442730716731,1049138260426397606038531,4224428884713520708904251,9425086013565224928896521
%N Primes whose reversal is a tenth power.
%H Robert Israel, <a href="/A059005/b059005.txt">Table of n, a(n) for n = 1..9149</a>
%p rev:= proc(n) local L, i;
%p L:= convert(n, base, 10);
%p add(L[-i]*10^(i-1), i=1..nops(L))
%p end proc:
%p S:= {}:
%p for i from 1 to 999 do
%p if i mod 10 = 0 then next fi;
%p p:= rev(i^10);
%p if isprime(p) then S:= S union {p} fi;
%p od:
%p sort(convert(S, list)); # _Robert Israel_, Dec 22 2024
%t Union[Select[FromDigits[Reverse[IntegerDigits[#]]]&/@(Range[300]^10),PrimeQ]] (* _Harvey P. Dale_, Mar 19 2013 *)
%Y Cf. A007488.
%K nonn,base
%O 1,1
%A _Robert G. Wilson v_, Jan 16 2001
%E More terms from _Sean A. Irvine_, Sep 09 2022