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)).

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

Michel Marcus, Table of n, a(n) for n = 1..10000

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

Cf. A000027, A007953.

Sequence in context: A147679 A339054 A137417 * A357306 A285445 A327745

Adjacent sequences: A137415 A137416 A137417 * A137419 A137420 A137421

Keyword

easy,nonn,base

Author

Ctibor O. Zizka, Apr 16 2008

Extensions

Extended by Klaus Brockhaus, Apr 23 2008

Status

approved