A117219 - OEIS

%I #16 Sep 05 2020 08:54:30

%S 0,1,8,64,216,729,1000,1728,2744,4096,5832,8000,15625,27000,42875,

%T 64000,91125,110592,157464,216000,287496,373248,474552,592704,729000,

%U 884736,1157625,1404928,1685159,2000376,2352637,2744000,3176523,3652264

%N Cubes divisible by their number of digits.

%H David A. Corneth, <a href="/A117219/b117219.txt">Table of n, a(n) for n = 1..10000</a>

%e 2744 is in the sequence because it is a cube divisible by 4.

%t Join[{0},Select[Range[200]^3,Divisible[#,IntegerLength[#]]&]] (* _Harvey P. Dale_, Jan 28 2015 *)

%o (PARI) lista(nn) = {for (i=0, nn, if (ispower(i, 3) && (i % #Str(i) == 0) , print1(i, ", ")););} \\ _Michel Marcus_, May 31 2013

%Y Intersection of A000578 and A098952.

%K base,easy,nonn

%O 1,3

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