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,2

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

Links

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

Example

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

Mathematica

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

Crossrefs

Cf. A034087, A055012, A169665, A169666.

Sequence in context: A355592 A357300 A248040 * A169664 A174417 A169666

Adjacent sequences: A034085 A034086 A034087 * A034089 A034090 A034091

Keyword

base,easy,nonn

Author

Erich Friedman

Extensions

Offset corrected by Amiram Eldar, Jan 31 2021

Status

approved