|
Search: id:A072082
|
|
|
| A072082 |
|
Numbers divisible by the cube of the sum of their digits in base 10. |
|
+0
2
|
|
| 1, 10, 100, 200, 500, 512, 1000, 2000, 2401, 4913, 5000, 5103, 5120, 5832, 10000, 10206, 11000, 11200, 11664, 13122, 14000, 17576, 19000, 19683, 20000, 20412, 21141, 23000, 23328, 24010, 28000, 29160, 32000, 37000, 39366, 40000, 40824
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=98415: sumdigit(98415)=27, q=98415=5.27.27.27.
|
|
MATHEMATICA
|
sud[x_] := Apply[Plus, IntegerDigits[x]] Do[s=sud[n]^3; If[IntegerQ[n/s], Print[n]], {n, 1, 10000}]
|
|
CROSSREFS
|
Cf. A005349, A003634, A072081, A072083.
Sequence in context: A116143 A031187 A029797 this_sequence A078259 A101655 A043216
Adjacent sequences: A072079 A072080 A072081 this_sequence A072083 A072084 A072085
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 14 2002
|
|
|
Search completed in 0.002 seconds
|
