OFFSET
1,2
COMMENTS
For some n included in this sequence, it is possible that the longest run of 0's in binary n is of the same length as the longest run of 1's in binary n. (See sequence A090050.)
MATHEMATICA
lcr1Q[n_]:=Module[{s=Split[IntegerDigits[n, 2]]}, Max[Length/@Select[s, MemberQ[ #, 1]&]] >= Max[Length/@Select[s, MemberQ[#, 0]&]]]; Select[ Range[ 120], lcr1Q] (* Harvey P. Dale, Feb 01 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Oct 06 2009
EXTENSIONS
Extended by Ray Chandler, Mar 12 2010
STATUS
approved