A063997 Multiples of 4 whose digits add to 4.

4, 40, 112, 220, 400, 1012, 1120, 1300, 2020, 2200, 3100, 4000, 10012, 10120, 10300, 11020, 11200, 12100, 13000, 20020, 20200, 21100, 22000, 30100, 31000, 40000, 100012, 100120, 100300, 101020, 101200, 102100, 103000, 110020, 110200, 111100

Offset

1,1

Links

Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 218 terms from Harry J. Smith)

Example

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.

Mathematica

Select[4Range[120000], Total[IntegerDigits[#]]==4&] (* Harvey P. Dale, May 07 2011 *)

Prog

(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

Crossrefs

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

Row n=4 of A245062.

Sequence in context: A367926 A091104 A069539 * A355841 A187378 A199833

Adjacent sequences: A063994 A063995 A063996 * A063998 A063999 A064000

Keyword

base,easy,nonn

Author

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

Extensions

More terms from Ray Chandler, Sep 28 2003

Status

approved