OFFSET
0,1
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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Aug 07 2010
STATUS
approved