A117219 Cubes divisible by their number of digits.

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

Offset

1,3

Links

David A. Corneth, Table of n, a(n) for n = 1..10000

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

Intersection of A000578 and A098952.

Sequence in context: A086114 A209651 A207071 * A267783 A207404 A207705

Adjacent sequences: A117216 A117217 A117218 * A117220 A117221 A117222

Keyword

base,easy,nonn

Author

Luc Stevens (lms022(AT)yahoo.com), Apr 21 2006

Status

approved