A117562 Numbers n such that n is a multiple of the sum of decimal digits squared of n.

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.

Links

Table of n, a(n) for n=1..49.

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

Adjacent sequences: A117559 A117560 A117561 * A117563 A117564 A117565

Keyword

base,nonn,less

Author

Zak Seidov, Apr 27 2006

Extensions

Edited by Robert Israel, Apr 14 2020

Status

approved