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

Author

N. J. A. Sloane, Jan 23 2022

Keywords

• nonn

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)

Crossrefs

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

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

PARI

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