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

Author

Zak Seidov, Apr 27 2006

Keywords

• base
• nonn
• less

Comments

The same as A034087 with 0 inserted as first term.

Crossrefs

Cf. A034087.

Programs

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 *)

Extensions

Edited by Robert Israel, Apr 14 2020