A110403 To get a(m), replace each digit of a(m-1) with the sum of all digits to the left of that digit.

11, 12, 13, 14, 15, 16, 17, 18, 19, 110, 122, 135, 149, 1514, 16711, 17141516, 1891314192026, 191819222327283739394147, 1101119202931333538404749576067707982919596100107

Offset

1,1

Links

Table of n, a(n) for n=1..19.

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

Cf. A110402.

Sequence in context: A362023 A347471 A162672 * A119247 A297269 A296710

Adjacent sequences: A110400 A110401 A110402 * A110404 A110405 A110406

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