login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A137418
Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + digitsum(a(n)) the value digitsum(a(n)).
10
1, 3, 3, 4, 8, 9, 7, 12, 9, 10, 15, 12, 21, 21, 27, 19, 26, 27, 19, 20, 21, 24, 23, 36, 33, 36, 36, 39, 39, 30, 37, 32, 45, 34, 44, 45, 42, 38, 39, 52, 70, 51, 57, 44, 54, 46, 54, 61, 60, 50, 63, 60, 53, 63, 85, 75, 57, 64, 59, 69, 69, 62, 72, 64, 65, 66, 67, 103, 81, 78, 71, 85
OFFSET
1,2
LINKS
PROG
(PARI) lista(nn) = my(va = [1..nn]); for (k=1, nn, my(i = k+sumdigits(va[k])); if (i<= #va, va[i]+=sumdigits(va[k])); ); va; \\ Michel Marcus, Aug 09 2022
CROSSREFS
Sequence in context: A147679 A339054 A137417 * A357306 A285445 A327745
KEYWORD
easy,nonn,base
AUTHOR
Ctibor O. Zizka, Apr 16 2008
EXTENSIONS
Extended by Klaus Brockhaus, Apr 23 2008
STATUS
approved