A044845 Positive integers having no fewer base-4 runs of even length than odd.

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

Links

Table of n, a(n) for n=1..52.

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

Adjacent sequences: A044842 A044843 A044844 * A044846 A044847 A044848

Keyword

nonn,base

Author

Clark Kimberling

Status

approved