login
A110403
To get a(m), replace each digit of a(m-1) with the sum of all digits to the left of that digit.
1
11, 12, 13, 14, 15, 16, 17, 18, 19, 110, 122, 135, 149, 1514, 16711, 17141516, 1891314192026, 191819222327283739394147, 1101119202931333538404749576067707982919596100107
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
Cf. A110402.
Sequence in context: A362023 A347471 A162672 * A119247 A297269 A296710
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