login
A350616
Indices of odd terms in A350877.
7
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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 23 2022
STATUS
approved