%I #6 Mar 31 2018 09:38:05
%S 10,12,18,20,24,30,36,40,48,50,54,60,70,72,80,90,100,102,108,112,120,
%T 126,132,140,144,162,180,192,200,204,210,216,224,230,234,240,252,264,
%U 270,280,288,300,306,308,312,320,322,324,336,342,360,364,392,396,400
%N Numbers that are divisible by 2*(sum of their digits).
%H Harvey P. Dale, <a href="/A134516/b134516.txt">Table of n, a(n) for n = 1..1000</a>
%e n = 120: 2*sum of digits(120) = 6, and 120 is divisible by 6, so it belongs to the sequence.
%t Select[Range[2,200,2],Divisible[#,2*Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Mar 31 2018 *)
%Y Cf. A005349.
%K base,nonn
%O 1,1
%A _Ctibor O. Zizka_, Jan 22 2008
%E More terms from _Harvey P. Dale_, Mar 31 2018
|