OFFSET
1,1
COMMENTS
This is a compressed version of A350877: when A350877 reaches an even number e, the following steps repeatedly divide e by 2 until an odd number is reached. In the present sequence the results of those divisions are suppressed.
For example, A350877 (n>=2) begins 1, 3, 6, [3,] 8, [4, 2, 1,] 8, [4, 2, 1,] 12, [6, 3,] 16, [8, 4, 2, 1,] 18, ..., where the suppressed terms are enclosed in square brackets.
The scatterplot of the present sequence is the same as the red-colored portion of Sigrist's colored scatterplot in A350877.
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..20000 (first 10000 terms from Michael De Vlieger)
MATHEMATICA
j = 1; q = 2; Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[OddQ[j], Sow[i + 1]]; j = k, {i, 2, 436}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 23 2022, revised Jan 28 2022
STATUS
approved