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
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 23 2022
STATUS
approved