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

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:= {}:
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} ]

Extensions

More terms from Sean A. Irvine, Sep 09 2022