%I A034087
%S A034087 1,10,20,50,100,110,111,120,130,133,200,210,240,267,298,310,315,360,
%T A034087 372,376,400,420,480,500,532,550,630,803,917,973,1000,1010,1011,1020,
%U A034087 1030,1071,1100,1101,1110,1134,1148,1200,1211,1222,1290,1300,1302,1316
%N A034087 Numbers divisible by the sum of the squares of their digits.
%F A034087 A003132[a(n)] | a(n). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Feb 25 2007
%p A034087 A003132 := proc(n) local dec ; dec := convert(n,base,10) ; add( op(i,
               dec)^2,i=1..nops(dec)) ; end: isA034087 := proc(n) if n mod A003132(n) 
               = 0 then true ; else false ; fi ; end: for n from 1 to 1800 do if 
               isA034087(n) then printf("%d ",n) ; fi ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), 
               Feb 25 2007
%Y A034087 Sequence in context: A007927 A160517 A072081 this_sequence A117562 A115045 
               A067192
%Y A034087 Adjacent sequences: A034084 A034085 A034086 this_sequence A034088 A034089 
               A034090
%K A034087 base,easy,nonn
%O A034087 1,2
%A A034087 Erich Friedman (erich.friedman(AT)stetson.edu)