cp's OEIS Frontend

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.

%I A137903 #17 Feb 27 2024 03:04:25
%S A137903 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,
%T A137903 27,14,29,30,31,16,44,17,35,18,37,19,52,20,41,35,43,44,45,23,47,12,49,
%U A137903 50,68,52,53,45,55,56,76,29,59,47,61,31,63,64,65,66,67,68,92,35
%N 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.
%o A137903 (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
%Y A137903 Cf. A000027, A136119, A137319, A137417, A137418, A136259, A136272, A137901, A137902.
%K A137903 easy,nonn
%O A137903 1,3
%A A137903 _Ctibor O. Zizka_, Apr 30 2008
%E A137903 Entries corrected and extended by _Paolo P. Lava_, Mar 10 2009
%E A137903 More terms from _Michel Marcus_, Oct 29 2022