|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|