login
A044845
Positive integers having no fewer base-4 runs of even length than odd.
0
5, 10, 15, 16, 20, 22, 23, 26, 31, 32, 37, 40, 41, 43, 47, 48, 53, 58, 60, 61, 62, 80, 85, 90, 95, 160, 165, 170, 175, 240, 245, 250, 255, 256, 261, 266, 271, 320, 321, 322, 323, 325, 330, 335, 336, 340, 342, 343, 346, 351, 352, 357
OFFSET
1,1
MATHEMATICA
evQ[n_]:=Module[{sp=Split[IntegerDigits[n, 4]], ev, len}, ev=Count[sp, _?(EvenQ[ Length[ #]]&)]; len=Length[sp]; ev>=len/2]; Select[Range[400], evQ] (* Harvey P. Dale, Mar 29 2019 *)
CROSSREFS
Sequence in context: A270926 A317045 A037977 * A313667 A313668 A236848
KEYWORD
nonn,base
STATUS
approved