A059003 Primes whose reversal is an eighth power.

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

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

Crossrefs

Cf. A007488.

Sequence in context: A309062 A022218 A059001 * A104931 A210298 A204883

Adjacent sequences: A059000 A059001 A059002 * A059004 A059005 A059006

Keyword

nonn,base

Author

Robert G. Wilson v, Jan 16 2001

Extensions

More terms from Sean A. Irvine, Sep 09 2022

Status

approved