A138472 Number of numbers less than n having a greater sum of digits.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 8, 7, 6, 5, 4, 3, 2, 1, 0, 0, 15, 13, 11, 9, 7, 5, 3, 1, 0, 0, 21, 18, 15, 12, 9, 6, 3, 1, 0, 0, 26, 22, 18, 14, 10, 6, 3, 1, 0, 0, 30, 25, 20, 15, 10, 6, 3, 1, 0, 0, 33, 27, 21, 15, 10, 6, 3, 1, 0, 0, 35, 28, 21, 15, 10, 6, 3, 1, 0, 0, 36, 28, 21, 15, 10, 6, 3, 1, 0

Offset: 0

Author

Reinhard Zumkeller, Mar 19 2008

Keywords

• nonn
• base
• look

Comments

A138470(n) + A138471(n) + a(n) = n;

a(A067043(n)) = 0.

Examples

			a(42)=#{7,8,9,16,17,18,19,25,26,27,28,29,34,35,36,37,38,39}=18.
		

Links

• R. Zumkeller, Table of n, a(n) for n = 0..1500
• Index entries for Colombian or self numbers and related sequences

Crossrefs

Cf. A007953.

Programs

Mathematica

nn=90;With[{c=Table[{n,Total[IntegerDigits[n]]},{n,0,nn}]},Table[ Count[Take[c,i],?(#[[2]]>c[[i,2]]&)],{i,nn}]] (* _Harvey P. Dale, Sep 24 2012 *)