A138472 - OEIS

%I #10 Jan 27 2014 17:18:45

%S 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,

%T 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,

%U 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

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

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

%C a(A067043(n)) = 0.

%H R. Zumkeller, <a href="/A138472/b138472.txt">Table of n, a(n) for n = 0..1500</a>

%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>

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

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

%Y Cf. A007953.

%K nonn,base,look

%O 0,11

%A _Reinhard Zumkeller_, Mar 19 2008