A037971 Numbers whose maximal base-2 run length is 4.

15, 16, 30, 33, 47, 48, 60, 61, 66, 67, 79, 80, 94, 97, 111, 112, 120, 121, 122, 123, 132, 133, 134, 135, 143, 144, 158, 161, 175, 176, 188, 189, 194, 195, 207, 208, 222, 225, 239, 240, 241, 242, 243, 244, 245, 246, 247, 264, 265

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A043276.

Programs

Mathematica

Select[Range[300],Max[Length/@Split[IntegerDigits[#,2]]]==4&] (* Harvey P. Dale, Apr 24 2019 *)