login
A117562
Numbers n such that n is a multiple of the sum of decimal digits squared of n.
6
0, 1, 10, 20, 50, 100, 110, 111, 120, 130, 133, 200, 210, 240, 267, 298, 310, 315, 360, 372, 376, 400, 420, 480, 500, 532, 550, 630, 803, 917, 973, 1000, 1010, 1011, 1020, 1030, 1071, 1100, 1101, 1110, 1134, 1148, 1200, 1211, 1222, 1290, 1300, 1302, 1316
OFFSET
1,3
COMMENTS
The same as A034087 with 0 inserted as first term.
MATHEMATICA
Reap[Do[If[IntegerQ[n/Total[IntegerDigits[n]^2]], Sow[n]], {n, 1, 2000}]][[2, 1]]
Join[{0}, Select[Range[1500], Divisible[#, Total[IntegerDigits[#]^2]]&]] (* Harvey P. Dale, Feb 28 2023 *)
CROSSREFS
Cf. A034087.
Sequence in context: A160517 A072081 A034087 * A169663 A250602 A115045
KEYWORD
base,nonn,less
AUTHOR
Zak Seidov, Apr 27 2006
EXTENSIONS
Edited by Robert Israel, Apr 14 2020
STATUS
approved