A034088 Numbers divisible by the sum of the cubes of their digits.

1, 10, 100, 110, 111, 153, 200, 221, 370, 371, 407, 500, 702, 1000, 1010, 1011, 1040, 1100, 1101, 1110, 1120, 1210, 1215, 1232, 1323, 1530, 1728, 2000, 2030, 2080, 2110, 2210, 2240, 2331, 2352, 2376, 2464, 2580, 3212, 3213, 3304, 3456, 3520, 3700, 3710

Offset: 1

Author

Erich Friedman

Keywords

• base
• easy
• nonn

Comments

Ratio between original number and a(n) = 1 for n = 1, 6, 9, 10, 11, ... a(n)= 1, 153, 370, 371, 407,... - Carmine Suriano, May 04 2013

Examples

			12672 is a term since 1^3+2^3+6^3+7^3+2^3 = 576 divides 12672. - _Carmine Suriano_, May 04 2013
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1001 from Carmine Suriano)

Crossrefs

Cf. A034087, A055012, A169665, A169666.

Programs

Mathematica

Select[Range[4000], Divisible[#, Plus @@ (IntegerDigits[#]^3)] &] (* Amiram Eldar, Jan 31 2021 *)

Extensions

Offset corrected by Amiram Eldar, Jan 31 2021