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,2

Links

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

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 *)

Crossrefs

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

Sequence in context: A126717 A124039 A379488 * A337743 A335624 A096433

Adjacent sequences: A350614 A350615 A350616 * A350618 A350619 A350620

Keyword

nonn

Author

N. J. A. Sloane, Jan 23 2022

Status

approved