|
%I #9 Feb 28 2023 11:53:42
%S 0,1,10,20,50,100,110,111,120,130,133,200,210,240,267,298,310,315,360,
%T 372,376,400,420,480,500,532,550,630,803,917,973,1000,1010,1011,1020,
%U 1030,1071,1100,1101,1110,1134,1148,1200,1211,1222,1290,1300,1302,1316
%N Numbers n such that n is a multiple of the sum of decimal digits squared of n.
%C The same as A034087 with 0 inserted as first term.
%t Reap[Do[If[IntegerQ[n/Total[IntegerDigits[n]^2]],Sow[n]],{n,1,2000}]][[2,1]]
%t Join[{0},Select[Range[1500],Divisible[#,Total[IntegerDigits[#]^2]]&]] (* _Harvey P. Dale_, Feb 28 2023 *)
%Y Cf. A034087.
%K base,nonn,less
%O 1,3
%A _Zak Seidov_, Apr 27 2006
%E Edited by _Robert Israel_, Apr 14 2020
|
