A059003 Primes whose reversal is an eighth power.

61277761, 18258901387, 526098218446813, 52609352682209503, 186386112766353931, 526093005165061333, 12785316583844897311, 18866248772202954601, 104414665083132185191, 125722028990735440387, 679091464527322606741, 1462701398540433470911, 6100159128959496276541

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^8);
  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/8) ], Print[ n ] ], {n, 1, 10^22} ]

Extensions

More terms from Sean A. Irvine, Sep 09 2022