A350616 Indices of odd terms in A350877.

1, 2, 4, 8, 12, 15, 20, 22, 25, 27, 30, 32, 34, 36, 38, 40, 46, 48, 51, 53, 56, 58, 60, 63, 65, 71, 73, 76, 78, 80, 83, 85, 88, 95, 97, 100, 102, 105, 108, 114, 117, 123, 126, 128, 132, 135, 137, 140, 143, 148, 152, 156, 161, 163, 166, 172, 174, 176, 178, 180, 182, 186, 188, 192, 195, 197, 201, 204, 207, 211, 213

Offset

1,2

Comments

If we add 1 to these terms we get 2, 3, 5, 13, 16, 21, 23, 26, 28, 33, ..., which are the locations of record high points in A350877.

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[i]]; j = k, {i, 2, 213}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)

Prog

(PARI) A350616_upto(N)=select(t->t%2, A350877_first(N), 1) \\ M. F. Hasler, Jan 23 2022

Crossrefs

Cf. A350877, A350615, A350617, A350618, A350619, A350620, A350621, A350833.

Sequence in context: A354109 A354919 A288514 * A282667 A124395 A334167

Adjacent sequences: A350613 A350614 A350615 * A350617 A350618 A350619

Keyword

nonn

Author

N. J. A. Sloane, Jan 23 2022

Status

approved