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
Examples
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.
Links
- Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 218 terms from Harry J. Smith)
Crossrefs
Programs
-
Mathematica
Select[4Range[120000],Total[IntegerDigits[#]]==4&] (* Harvey P. Dale, May 07 2011 *)
-
PARI
SumDE(x,y)= { local(s); s=0; while (x>9 && s
Harry J. Smith, Sep 05 2009
Extensions
More terms from Ray Chandler, Sep 28 2003