|
%I #15 Jun 29 2017 00:03:18
%S 1,8,27,216,512,1000,1728,4913,5832,8000,13824,17576,19683,27000,
%T 35937,46656,59319,64000,74088,110592,125000,157464,185193,216000,
%U 287496,314432,328509,343000,373248,421875,474552,512000,592704,658503,729000
%N Cubes which are divisible by the sum of their digits.
%C Intersection of A000578 and A005349. - _Robert Israel_, Jun 27 2017
%H Robert Israel, <a href="/A118720/b118720.txt">Table of n, a(n) for n = 1..10000</a>
%e 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 select(t -> t mod convert(convert(t,base,10),`+`) = 0, map(t -> t^3, [$1..100])); # _Robert Israel_, Jun 28 2017
%t Select[Range[100]^3,Divisible[#,Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Apr 25 2011 *)
%o (PARI) isok(n) = ispower(n,3) && ((n % sumdigits(n)) == 0); \\ _Michel Marcus_, Jun 28 2017
%Y Cf. A000578, A005349, A118547.
%K base,nonn
%O 1,2
%A Luc Stevens (lms022(AT)yahoo.com), May 21 2006
|
