|
|
A117219
|
|
Cubes divisible by their number of digits.
|
|
1
|
|
|
0, 1, 8, 64, 216, 729, 1000, 1728, 2744, 4096, 5832, 8000, 15625, 27000, 42875, 64000, 91125, 110592, 157464, 216000, 287496, 373248, 474552, 592704, 729000, 884736, 1157625, 1404928, 1685159, 2000376, 2352637, 2744000, 3176523, 3652264
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
EXAMPLE
|
2744 is in the sequence because it is a cube divisible by 4.
|
|
MATHEMATICA
|
Join[{0}, Select[Range[200]^3, Divisible[#, IntegerLength[#]]&]] (* Harvey P. Dale, Jan 28 2015 *)
|
|
PROG
|
(PARI) lista(nn) = {for (i=0, nn, if (ispower(i, 3) && (i % #Str(i) == 0) , print1(i, ", ")); ); } \\ Michel Marcus, May 31 2013
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006
|
|
STATUS
|
approved
|
|
|
|