|
Search: id:A072081
|
|
|
| A072081 |
|
Numbers divisible by the square of the sum of their digits in base 10. |
|
+0
4
|
|
| 1, 10, 20, 50, 81, 100, 112, 162, 200, 243, 324, 392, 400, 405, 500, 512, 605, 648, 810, 972, 1000, 1053, 1100, 1120, 1134, 1183, 1215, 1296, 1400, 1620, 1701, 1900, 1944, 2000, 2025, 2106, 2156, 2240, 2268, 2300, 2401, 2430, 2511, 2592, 2704, 2800, 2916
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=9477, sumdigit(9477)=27, q=9477=27.27.13.
|
|
MATHEMATICA
|
sud[x_] := Apply[Plus, IntegerDigits[x]] Do[s=sud[n]^2; If[IntegerQ[n/s], Print[n]], {n, 1, 10000}]
|
|
CROSSREFS
|
Cf. A005349, A003634.
Sequence in context: A110804 A048063 A007927 this_sequence A034087 A117562 A115045
Adjacent sequences: A072078 A072079 A072080 this_sequence A072082 A072083 A072084
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 14 2002
|
|
|
Search completed in 0.002 seconds
|
