A063997 - OEIS

%I #25 Oct 27 2023 22:10:15

%S 4,40,112,220,400,1012,1120,1300,2020,2200,3100,4000,10012,10120,

%T 10300,11020,11200,12100,13000,20020,20200,21100,22000,30100,31000,

%U 40000,100012,100120,100300,101020,101200,102100,103000,110020,110200,111100

%N Multiples of 4 whose digits add to 4.

%H Alois P. Heinz, <a href="/A063997/b063997.txt">Table of n, a(n) for n = 1..10000</a> (first 218 terms from Harry J. Smith)

%e 4 is an element of the sequence, since 4 is a multiple of 4 the sum of whose digits is 4; 220 is an element of the sequence, since 220 = 4*55 and 2 + 2+ 0 = 4.

%t Select[4Range[120000],Total[IntegerDigits[#]]==4&] (* _Harvey P. Dale_, May 07 2011 *)

%o (PARI) SumDE(x,y)= { local(s); s=0; while (x>9 && s<y, s+=x-10*(x\10); x\=10); s+=x; return(s==y) } { n=-1; forstep (m=4, 10^9, 4, if (SumDE(m, 4), write("b063997.txt", n++, " ", m); if (n==217, break)) ) } \\ _Harry J. Smith_, Sep 05 2009

%Y Cf. A069521 to A069530, A069532, A069533, A069534, A069535, A069536, A069537, A052217.

%Y Row n=4 of A245062.

%K base,easy,nonn

%O 1,1

%A Lisa O. Coulter (lcoulter(AT)stetson.edu), Sep 06 2001

%E More terms from _Ray Chandler_, Sep 28 2003