login
a(n) = smallest integer m>=0 such that sum of digits of n and m is >=10.
1

%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