login
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