OFFSET
1,1
EXAMPLE
After 122 the next term is obtained by replacing least significant 2 by 2+2+1, next 2 by 2+1 and retaining the most significant digit and it is 135.
After 122, the next term is found as 1, 1+2, 1+2+2, giving 135.
MATHEMATICA
sdl[n_]:=With[{d=Table[Total[Take[IntegerDigits[n], i]], {i, IntegerLength[ n]}]}, FromDigits[Flatten[IntegerDigits/@d]]]; NestList[sdl, 11, 20] (* Harvey P. Dale, Jan 17 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Jul 29 2005
EXTENSIONS
More terms from Michael J. Sell (mjs589(AT)psu.edu), Jan 30 2006
STATUS
approved