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,1

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

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 *)

Crossrefs

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

Sequence in context: A297675 A112236 A050180 * A272173 A028725 A047166

Adjacent sequences: A319419 A319420 A319421 * A319423 A319424 A319425

Keyword

nonn

Author

N. J. A. Sloane, Sep 23 2018

Status

approved