A059001 Primes whose reversal is a sixth power.

61277761, 10278214831, 424176600403, 526098190537, 526515941773, 5260934114929, 9481530370051, 40512620860813, 46882459723321, 108153140207347, 489332144054323, 526046241813643, 1619463705594643, 1676989428458959, 4249139677419331, 4878387447701941

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

Mathematica

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

Crossrefs

Cf. A007488.

Sequence in context: A210354 A309062 A022218 * A059003 A104931 A210298

Adjacent sequences: A058998 A058999 A059000 * A059002 A059003 A059004

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 16 2001

Extensions

More terms from Sean A. Irvine, Sep 09 2022

Status

approved