

A110403


To get a(m), replace each digit of a(m1) 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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



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



EXTENSIONS

More terms from Michael J. Sell (mjs589(AT)psu.edu), Jan 30 2006


STATUS

approved



