OFFSET
1,3
PROG
(PARI) lista(nn) = my(va = [1..nn]); for (n=1, nn, my(m = n+va[n]); if (m <= nn, if (va[m] % 2, va[m]++, va[m] /= 2)); ); va; \\ Michel Marcus, Oct 29 2022
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Ctibor O. Zizka, Apr 30 2008
EXTENSIONS
More terms from Michel Marcus, Oct 29 2022
STATUS
approved