|
| |
|
|
A072081
|
|
Numbers divisible by the square of the sum of their digits in base 10.
|
|
8
|
|
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Donovan Johnson, Table of n, a(n) for n = 1..1000
|
|
|
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}]
Select[Range[3000], Divisible[#, Total[IntegerDigits[#]]^2]&] (* From Harvey P. Dale, May 04 2011 *)
|
|
|
CROSSREFS
|
Cf. A005349, A003634.
Sequence in context: A048063 A007927 A160517 * A034087 A117562 A169663
Adjacent sequences: A072078 A072079 A072080 * A072082 A072083 A072084
|
|
|
KEYWORD
|
base,nonn
|
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 14 2002
|
|
|
STATUS
|
approved
|
| |
|
|
