%I #2 Mar 30 2012 17:26:35
%S 19,9,8,7,6,5,4,3,2,1,9,8,7,6,5,4,3,2,1,0,8,7,6,5,4,3,2,1,0,0,7,6,5,4,
%T 3,2,1,0,0,0,6,5,4,3,2,1,0,0,0,0,5,4,3,2,1,0,0,0,0,0,4,3,2,1,0,0,0,0,
%U 0,0,3,2,1,0,0,0,0,0,0,0,2,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,9,8,7,6,5
%N a(n) = smallest integer m>=0 such that sum of digits of n and m is >=10.
%C A007953(n) + A007953(m)>=10.
%t Reap[Do[idn=IntegerDigits[n];sn=Plus@@idn;
%t Do[If[10<=sn+Plus@@IntegerDigits[m],Sow[m];Break[]],{m,0,10^5}],{n,0,200}]][[2,1]]
%Y Cf. A007953, A175675.
%K base,nonn
%O 0,1
%A _Zak Seidov_, Aug 07 2010