A118715 Numbers n such that the digital reversal of n is a perfect power (A001597).
0, 1, 4, 8, 9, 10, 18, 23, 40, 46, 52, 61, 63, 72, 80, 90, 94, 100, 121, 144, 148, 163, 169, 180, 215, 230, 342, 343, 400, 423, 441, 460, 484, 487, 520, 521, 522, 526, 610, 612, 630, 652, 675, 676, 691, 720, 800, 821, 900, 925, 927, 940, 961, 982, 1000, 1042, 1062
Offset: 1
Examples
63 is a member of the sequence since its digital reversal, 36=6^2, is the ninth perfect power.
Crossrefs
Cf. A001597.
Programs
-
Mathematica
fQ[n_] := Block[{rid = FromDigits@ Reverse@ IntegerDigits@n}, rid == 0 || rid == 1 || GCD @@ Last /@ FactorInteger@ rid > 1]; Select[ Range[0, 1088], fQ@# &] (* Robert G. Wilson v, May 22 2006 *)
Extensions
Edited and extended by Robert G. Wilson v, May 22 2006