A118720 Cubes which are divisible by the sum of their digits.

1, 8, 27, 216, 512, 1000, 1728, 4913, 5832, 8000, 13824, 17576, 19683, 27000, 35937, 46656, 59319, 64000, 74088, 110592, 125000, 157464, 185193, 216000, 287496, 314432, 328509, 343000, 373248, 421875, 474552, 512000, 592704, 658503, 729000

Offset

1,2

Comments

Intersection of A000578 and A005349. - Robert Israel, Jun 27 2017

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

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.

Maple

select(t -> t mod convert(convert(t, base, 10), `+`) = 0, map(t -> t^3, [$1..100])); # Robert Israel, Jun 28 2017

Mathematica

Select[Range[100]^3, Divisible[#, Total[IntegerDigits[#]]]&]  (* Harvey P. Dale, Apr 25 2011 *)

Prog

(PARI) isok(n) = ispower(n, 3) && ((n % sumdigits(n)) == 0); \\ Michel Marcus, Jun 28 2017

Crossrefs

Cf. A000578, A005349, A118547.

Sequence in context: A066963 A067813 A304769 * A197620 A029786 A029792

Adjacent sequences: A118717 A118718 A118719 * A118721 A118722 A118723

Keyword

base,nonn

Author

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

Status

approved