|
%I
%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 multiplier of the sum of decimal digits squared of n.
%C Except for the first term, 0, all terms are in A034087.
%t Reap[Do[If[IntegerQ[n/Total[IntegerDigits[n]^2]],Sow[n]],{n,1,2000}]][[2,1]]
%Y Cf. A034087.
%K base,nonn
%O 1,3
%A _Zak Seidov_, Apr 27 2006
|
