login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Positions of records in A119435.
2

%I #21 Apr 21 2022 09:18:12

%S 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 111,119,127,129,131,135,143,159,175,191,207,223,239,255,257,259,263,

%U 271,287,303,319,351,367,383,415,431,447,479,495,511,513,515,519,527

%N Positions of records in A119435.

%C 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 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 Michael De Vlieger, <a href="/A353037/b353037.txt">Table of n, a(n) for n = 1..1360</a>

%H Michael De Vlieger, <a href="/A353037/a353037.png">Bitmap of a(n)</a>, n = 1..967, vertical exaggeration 12X.

%H Michael De Vlieger, <a href="/A353037/a353037.txt">Binary expansion of a(n)</a>, n = 1..967.

%t 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 Cf. A030101, A119435, A353035, A353036.

%K nonn,base

%O 1,2

%A _Michael De Vlieger_, Apr 18 2022