This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A350616 #24 Jan 24 2022 11:40:35 %S A350616 1,2,4,8,12,15,20,22,25,27,30,32,34,36,38,40,46,48,51,53,56,58,60,63, %T A350616 65,71,73,76,78,80,83,85,88,95,97,100,102,105,108,114,117,123,126,128, %U A350616 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 %N A350616 Indices of odd terms in A350877. %C A350616 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. %H A350616 Michael De Vlieger, <a href="/A350616/b350616.txt">Table of n, a(n) for n = 1..10000</a> (first 338 terms from N. J. A. Sloane) %t A350616 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 *) %o A350616 (PARI) A350616_upto(N)=select(t->t%2, A350877_first(N), 1) \\ _M. F. Hasler_, Jan 23 2022 %Y A350616 Cf. A350877, A350615, A350617, A350618, A350619, A350620, A350621, A350833. %K A350616 nonn %O A350616 1,2 %A A350616 _N. J. A. Sloane_, Jan 23 2022