OFFSET
0,1
EXAMPLE
a(0)=19 because 0+1+9=10, a(1)=9 because 1+9=10.
MATHEMATICA
Reap[Do[idn=IntegerDigits[n]; sn=Plus@@idn;
Do[If[10<=sn+Plus@@IntegerDigits[m], Sow[m]; Break[]], {m, n, 10^5}], {n, 0, 200}]][[2, 1]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 07 2010
STATUS
approved