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

Links

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

Mathematica

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

Crossrefs

Cf. A043276.

Sequence in context: A046417 A193566 A079832 * A022105 A041456 A041458

Adjacent sequences: A037968 A037969 A037970 * A037972 A037973 A037974

Keyword

nonn,base

Author

Clark Kimberling

Status

approved