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
Examples
2744 is in the sequence because it is a cube divisible by 4.
Links
- David A. Corneth, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Join[{0},Select[Range[200]^3,Divisible[#,IntegerLength[#]]&]] (* Harvey P. Dale, Jan 28 2015 *)
-
PARI
lista(nn) = {for (i=0, nn, if (ispower(i, 3) && (i % #Str(i) == 0) , print1(i, ", ")););} \\ Michel Marcus, May 31 2013