login
A115694
Cubes whose digit reversal is a powerful(1) number (A001694).
2
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,2
EXAMPLE
27 = 3^3 and 72 = 2^3*3^2 is powerful.
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 *)
PROG
(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
CROSSREFS
Sequence in context: A029786 A029792 A112993 * A028935 A030089 A348585
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Jan 31 2006
EXTENSIONS
a(26)-a(28) from Amiram Eldar, Feb 24 2024
STATUS
approved