|
%I #2 Mar 30 2012 17:26:35
%S 19,9,8,7,6,5,6,7,8,9,18,17,16,15,14,15,16,17,18,19,26,25,24,23,24,25,
%T 26,27,28,29,34,33,32,33,34,35,36,37,38,39,42,41,42,43,44,45,46,47,48,
%U 49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71
%N a(n) = smallest integer m>=n such that sum of digits of n and m is >=10.
%C A007953(n) + A007953(m)>=10.
%e a(0)=19 because 0+1+9=10, a(1)=9 because 1+9=10.
%t Reap[Do[idn=IntegerDigits[n];sn=Plus@@idn;
%t Do[If[10<=sn+Plus@@IntegerDigits[m],Sow[m];Break[]],{m,n,10^5}],{n,0,200}]][[2,1]]
%Y Cf. A007953, A175674.
%K base,nonn
%O 0,1
%A _Zak Seidov_, Aug 07 2010
|
