A059005 Primes whose reversal is a tenth power.

4201, 940315563074788471, 940291214439736193431, 948413222299837654933, 1081016161371207738841, 4243031147170261950811, 428799714836577410775151, 671856480838442730716731, 1049138260426397606038531, 4224428884713520708904251, 9425086013565224928896521

Offset: 1

Author

Robert G. Wilson v, Jan 16 2001

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..9149

Crossrefs

Cf. A007488.

Programs

Maple

rev:= proc(n) local L, i;
  L:= convert(n, base, 10);
  add(L[-i]*10^(i-1), i=1..nops(L))
end proc:
S:= {}:
for i from 1 to 999 do
  if i mod 10 = 0 then next fi;
  p:= rev(i^10);
  if isprime(p) then S:= S union {p} fi;
od:
sort(convert(S, list)); # Robert Israel, Dec 22 2024

Mathematica

Union[Select[FromDigits[Reverse[IntegerDigits[#]]]&/@(Range[300]^10),PrimeQ]] (* Harvey P. Dale, Mar 19 2013 *)

Extensions

More terms from Sean A. Irvine, Sep 09 2022