login
Numbers whose maximal base-2 run length is 4.
3

%I #13 Apr 13 2021 23:15:05

%S 15,16,30,33,47,48,60,61,66,67,79,80,94,97,111,112,120,121,122,123,

%T 132,133,134,135,143,144,158,161,175,176,188,189,194,195,207,208,222,

%U 225,239,240,241,242,243,244,245,246,247,264,265

%N Numbers whose maximal base-2 run length is 4.

%H Harvey P. Dale, <a href="/A037971/b037971.txt">Table of n, a(n) for n = 1..1000</a>

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

%Y Cf. A043276.

%K nonn,base

%O 1,1

%A _Clark Kimberling_