A319422 Records in A175046.

3, 12, 24, 51, 99, 204, 396, 408, 819, 1587, 1635, 3276, 6348, 6540, 6552, 13107, 25395, 26163, 26211, 52428, 101580, 104652, 104844, 104856, 209715, 406323, 418611, 419379, 419427, 838860, 1625292, 1674444, 1677516, 1677708, 1677720, 3355443, 6501171

Offset: 1

Author

N. J. A. Sloane, Sep 23 2018

Keywords

• nonn

Comments

a(n) in binary is either an alternating string of 11's and 00's, or exactly one of the 00's is replaced by 000 (see A319423). - Chai Wah Wu, Oct 04 2018

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..10099
• Chai Wah Wu, Record values in appending and prepending bitstrings to runs of binary digits, arXiv:1810.02293 [math.NT], 2018

Crossrefs

Cf. A175046, A319423, A319424 (written in binary).

Programs

Mathematica

b[n_] := (Append[#, #[[1]]]& /@ Split[IntegerDigits[n, 2]]) // Flatten // FromDigits[#, 2]&;
Reap[For[rec = 0; k = 1, k < 3000, k++, bk = b[k]; If[bk > rec, rec = bk; Sow[rec]]]][[2, 1]] (* Jean-François Alcover, Nov 12 2018 *)