

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



KEYWORD

easy,nonn,base


AUTHOR



EXTENSIONS



STATUS

approved



