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,1

Links

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

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} ]

Crossrefs

Cf. A007488.

Sequence in context: A020368 A002140 A095965 * A170928 A103764 A189121

Adjacent sequences: A058999 A059000 A059001 * A059003 A059004 A059005

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 16 2001

Extensions

More terms from Sean A. Irvine, Sep 09 2022

Status

approved