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
KEYWORD
base,nonn,less
AUTHOR
Zak Seidov, Apr 27 2006
EXTENSIONS
Edited by Robert Israel, Apr 14 2020
STATUS
approved