OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
klrQ[n_]:=With[{sidn2=Split[IntegerDigits[n, 2]]}, Max[Length/@Select[sidn2, #[[1]]==0&]]>Max[Length/@Select[sidn2, #[[1]]==1&]]]; Select[Range[ 0, 200], klrQ] (* Harvey P. Dale, May 05 2018 *)
PROG
(Python)
for n in range(1000):
b = bin(n).lstrip("0b")
L0 = L1 = 0
s = '0'
if n==0: b=s
while b.find(s)>=0:
s += '0'
L0 += 1
s = '1'
while b.find(s)>=0:
s += '1'
L1 += 1
if L0>L1: print str(n)+', ',
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alex Ratushnyak, Feb 14 2014
STATUS
approved