[go: up one dir, main page]

login
A175674
a(n) = smallest integer m>=0 such that sum of digits of n and m is >=10.
1
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, 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, 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
OFFSET
0,1
COMMENTS
A007953(n) + A007953(m)>=10.
MATHEMATICA
Reap[Do[idn=IntegerDigits[n]; sn=Plus@@idn;
Do[If[10<=sn+Plus@@IntegerDigits[m], Sow[m]; Break[]], {m, 0, 10^5}], {n, 0, 200}]][[2, 1]]
CROSSREFS
Sequence in context: A040345 A070685 A033339 * A175675 A006232 A260328
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 07 2010
STATUS
approved