A350617 Odd-valued terms in A350877.

1, 3, 3, 1, 1, 3, 1, 9, 7, 15, 11, 21, 29, 35, 39, 43, 3, 31, 23, 45, 29, 51, 65, 37, 63, 5, 53, 39, 73, 91, 51, 89, 55, 3, 71, 55, 103, 65, 57, 7, 45, 7, 47, 119, 39, 59, 129, 85, 77, 19, 31, 33, 17, 129, 95, 11, 137, 203, 237, 257, 269, 69, 181, 61, 93, 203, 65, 99, 109, 57, 203, 139, 249, 77, 225, 151, 267, 41, 219, 155

Offset: 1

Author

N. J. A. Sloane, Jan 23 2022

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000 (first 338 terms from N. J. A. Sloane)

Crossrefs

Cf. A350877, A350615, A350616, A350618, A350619.

Programs

Mathematica

j = 1; q = 2; {j}~Join~Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[OddQ[k], Sow[k]]; j = k, {i, 2, 240}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)