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,11

Comments

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

a(A067043(n)) = 0.

Links

R. Zumkeller, Table of n, a(n) for n = 0..1500

Index entries for Colombian or self numbers and related sequences

Example

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

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 *)

Crossrefs

Cf. A007953.

Sequence in context: A021846 A201579 A071877 * A022964 A023450 A141726

Adjacent sequences: A138469 A138470 A138471 * A138473 A138474 A138475

Keyword

nonn,base,look

Author

Reinhard Zumkeller, Mar 19 2008

Status

approved