cp's OEIS Frontend

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

%I A138472 #10 Jan 27 2014 17:18:45
%S A138472 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 A138472 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 A138472 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 A138472 Number of numbers less than n having a greater sum of digits.
%C A138472 A138470(n) + A138471(n) + a(n) = n;
%C A138472 a(A067043(n)) = 0.
%H A138472 R. Zumkeller, <a href="/A138472/b138472.txt">Table of n, a(n) for n = 0..1500</a>
%H A138472 <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%e A138472 a(42)=#{7,8,9,16,17,18,19,25,26,27,28,29,34,35,36,37,38,39}=18.
%t A138472 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 A138472 Cf. A007953.
%K A138472 nonn,base,look
%O A138472 0,11
%A A138472 _Reinhard Zumkeller_, Mar 19 2008