A137903 Limiting sequence when we start with positive integers (A000027) and at step n >= 1 add to the term at position n + a(n) the value a(n) if the term is odd, else divide the term by 2.

1, 1, 4, 4, 5, 6, 11, 4, 9, 5, 11, 3, 13, 14, 10, 16, 17, 18, 19, 20, 21, 11, 23, 24, 35, 13, 27, 14, 29, 30, 31, 16, 44, 17, 35, 18, 37, 19, 52, 20, 41, 35, 43, 44, 45, 23, 47, 12, 49, 50, 68, 52, 53, 45, 55, 56, 76, 29, 59, 47, 61, 31, 63, 64, 65, 66, 67, 68, 92, 35

Offset: 1

Author

Ctibor O. Zizka, Apr 30 2008

Keywords

• easy
• nonn

Crossrefs

Cf. A000027, A136119, A137319, A137417, A137418, A136259, A136272, A137901, A137902.

Programs

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[n], va[m] /= 2));); va; \\ Michel Marcus, Oct 29 2022

Extensions

Entries corrected and extended by Paolo P. Lava, Mar 10 2009

More terms from Michel Marcus, Oct 29 2022