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

Author

Ctibor O. Zizka, Apr 16 2008

Keywords

• easy
• nonn
• base

Links

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

Crossrefs

Cf. A000027, A007953.

Programs

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

Extensions

Extended by Klaus Brockhaus, Apr 23 2008