A059002 Primes whose reversal is a seventh power.

821, 90367894271, 188372457491, 1938510215909, 67717549154641, 95168980930291, 772155318141637, 1558489460499871, 7505006230374799, 8237815094854781, 23021614989689299, 39712513595115047, 919042243755035867, 3573813286514042801, 7597919404531928707

Offset: 1

Author

Robert G. Wilson v, Jan 16 2001

Keywords

• nonn
• base

Links

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

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:= {}: count:= 0:
for d from 1 while count < 60 do
 for i from 10^(d-1) to 10^d do
  if i mod 10 = 0 then next fi;
  p:= rev(i^7);
  if isprime(p) then S:= S union {p}; count:= count+1; fi;
od od:
sort(convert(S,list)); # Robert Israel, Dec 22 2024

Mathematica

Do[ If[ PrimeQ[ n ] && IntegerQ[ ToExpression[ StringReverse[ ToString[ n ] ] ]^(1/7) ], Print[ n ] ], {n, 1, 10^19} ]

Extensions

More terms from Sean A. Irvine, Sep 09 2022