login
Primes whose reversal is a tenth power.
3

%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