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