This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A118720 #15 Jun 29 2017 00:03:18 %S A118720 1,8,27,216,512,1000,1728,4913,5832,8000,13824,17576,19683,27000, %T A118720 35937,46656,59319,64000,74088,110592,125000,157464,185193,216000, %U A118720 287496,314432,328509,343000,373248,421875,474552,512000,592704,658503,729000 %N A118720 Cubes which are divisible by the sum of their digits. %C A118720 Intersection of A000578 and A005349. - _Robert Israel_, Jun 27 2017 %H A118720 Robert Israel, <a href="/A118720/b118720.txt">Table of n, a(n) for n = 1..10000</a> %e A118720 4913 is in the sequence because it is a cube, the sum of its digits is 4+9+1+3=17 and 4913 is divisible by 17. %p A118720 select(t -> t mod convert(convert(t,base,10),`+`) = 0, map(t -> t^3, [$1..100])); # _Robert Israel_, Jun 28 2017 %t A118720 Select[Range[100]^3,Divisible[#,Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Apr 25 2011 *) %o A118720 (PARI) isok(n) = ispower(n,3) && ((n % sumdigits(n)) == 0); \\ _Michel Marcus_, Jun 28 2017 %Y A118720 Cf. A000578, A005349, A118547. %K A118720 base,nonn %O A118720 1,2 %A A118720 Luc Stevens (lms022(AT)yahoo.com), May 21 2006