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 A353037 #24 Jun 20 2025 18:49:17
%S A353037 1,2,3,5,7,9,11,15,17,19,23,27,31,33,35,39,47,55,63,65,67,71,79,87,95,
%T A353037 111,119,127,129,131,135,143,159,175,191,207,223,239,255,257,259,263,
%U A353037 271,287,303,319,351,367,383,415,431,447,479,495,511,513,515,519,527
%N A353037 Positions of records in A119435.
%C A353037 Let S = A119435. S(2^k +- 1) with k > 0 are records in S and thus (2^k - 1) and (2^k + 1) appear in this sequence.
%C A353037 S(2^k - 1) = 2^(k+1) - 3 and S(2^k + 1) = 2^(k+1) + 1, while S(2^k) is a local minimum.
%H A353037 Michael De Vlieger, <a href="/A353037/b353037.txt">Table of n, a(n) for n = 1..1360</a>
%H A353037 Michael De Vlieger, <a href="/A353037/a353037.png">Bitmap of a(n)</a>, n = 1..967, vertical exaggeration 12X.
%H A353037 Michael De Vlieger, <a href="/A353037/a353037.txt">Binary expansion of a(n)</a>, n = 1..967.
%t A353037 a = {1}; nn = 527; r = 0; Do[AppendTo[a, Complement[Range[i + 2 nn], a][[IntegerReverse[i, 2]] ]], {i, 2, nn}]; Reap[Do[If[# > r, r = #; Sow[i]] &@ a[[i]], {i, Length[a]}]][[-1, -1]]
%Y A353037 Cf. A030101, A119435, A353035, A353036.
%K A353037 nonn,base
%O A353037 1,2
%A A353037 _Michael De Vlieger_, Apr 18 2022