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 A353036 #24 Jun 20 2025 18:49:23
%S A353036 1,2,5,9,13,17,23,29,33,43,51,53,61,65,83,95,107,113,125,129,163,183,
%T A353036 199,203,219,233,237,253,257,323,359,383,407,419,443,449,473,485,509,
%U A353036 513,643,711,751,783,791,823,851,859,891,913,921,953,981,989,1021,1025
%N A353036 Records in A119435.
%C A353036 Terms are odd except for a(2) = 2.
%C A353036 (2^k - 1) +- 2 are terms in this sequence for k > 1.
%C A353036 Let S = A119435. S(2^k + 1) = S(2^k - 1) + 4, while S(2^k) is a local minimum in S.
%C A353036 S(2^k - 1) = 2^(k+1) - 3 and S(2^k + 1) = 2^(k+1) + 1.
%H A353036 Michael De Vlieger, <a href="/A353036/b353036.txt">Table of n, a(n) for n = 1..1360</a>
%H A353036 Michael De Vlieger, <a href="/A353036/a353036.png">Bitmap of a(n)</a>, n = 1..967, vertical exaggeration 12X.
%H A353036 Michael De Vlieger, <a href="/A353036/a353036.txt">Binary expansion of a(n)</a>, n = 1..967.
%t A353036 a = {1}; nn = 514; r = 0; Do[AppendTo[a, Complement[Range[i + 2 nn], a][[IntegerReverse[i, 2]] ]], {i, 2, nn}]; Reap[Do[If[# > r, r = #; Sow[r]] &@ a[[i]], {i, Length[a]}]][[-1, -1]]
%Y A353036 Cf. A030101, A119435, A353035, A353037.
%K A353036 nonn,base
%O A353036 1,2
%A A353036 _Michael De Vlieger_, Apr 18 2022