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
KEYWORD
easy,nonn,base
AUTHOR
Ctibor O. Zizka, Apr 16 2008
EXTENSIONS
Extended by Klaus Brockhaus, Apr 23 2008
STATUS
approved