# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a175675 Showing 1-1 of 1 %I A175675 #2 Mar 30 2012 17:26:35 %S A175675 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 A175675 26,27,28,29,34,33,32,33,34,35,36,37,38,39,42,41,42,43,44,45,46,47,48, %U A175675 49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71 %N A175675 a(n) = smallest integer m>=n such that sum of digits of n and m is >=10. %C A175675 A007953(n) + A007953(m)>=10. %e A175675 a(0)=19 because 0+1+9=10, a(1)=9 because 1+9=10. %t A175675 Reap[Do[idn=IntegerDigits[n];sn=Plus@@idn; %t A175675 Do[If[10<=sn+Plus@@IntegerDigits[m],Sow[m];Break[]],{m,n,10^5}],{n,0,200}]][[2,1]] %Y A175675 Cf. A007953, A175674. %K A175675 base,nonn %O A175675 0,1 %A A175675 _Zak Seidov_, Aug 07 2010 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE