A115694 Cubes whose digit reversal is a powerful(1) number (A001694).
1, 8, 27, 343, 1000, 1331, 8000, 27000, 343000, 1000000, 1030301, 1331000, 1367631, 8000000, 27000000, 343000000, 1000000000, 1003003001, 1030301000, 1033364331, 1331000000, 1334633301, 1367631000, 8000000000, 10662526601, 27000000000, 343000000000, 1000000000000
Offset: 1
Examples
27 = 3^3 and 72 = 2^3*3^2 is powerful.
Links
Programs
-
Mathematica
Select[Range[2300]^3,Min[FactorInteger[IntegerReverse[#]][[All,2]]]>1 || IntegerReverse[#]==1&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 08 2021 *)
-
PARI
lista(kmax) = {my(c); for(k = 1, kmax, c = k^3; if(ispowerful(fromdigits( Vecrev(digits(c)))), print1(c, ", ")));} \\ Amiram Eldar, Feb 24 2024
Extensions
a(26)-a(28) from Amiram Eldar, Feb 24 2024
Comments