|
%I #10 Feb 17 2024 02:47:19
%S 0,1,4,8,9,10,18,23,40,46,52,61,63,72,80,90,94,100,121,144,148,163,
%T 169,180,215,230,342,343,400,423,441,460,484,487,520,521,522,526,610,
%U 612,630,652,675,676,691,720,800,821,900,925,927,940,961,982,1000,1042,1062
%N Numbers n such that the digital reversal of n is a perfect power (A001597).
%e 63 is a member of the sequence since its digital reversal, 36=6^2, is the ninth perfect power.
%t fQ[n_] := Block[{rid = FromDigits@ Reverse@ IntegerDigits@n}, rid == 0 || rid == 1 || GCD @@ Last /@ FactorInteger@ rid > 1];
%t Select[ Range[0, 1088], fQ@# &] (* _Robert G. Wilson v_, May 22 2006 *)
%Y Cf. A001597.
%K base,easy,nonn,less
%O 1,3
%A _Giovanni Teofilatto_, May 21 2006
%E Edited and extended by _Robert G. Wilson v_, May 22 2006
|
