A044828 Positive integers having more base-2 runs of even length than odd.

3, 12, 15, 19, 25, 27, 48, 51, 60, 63, 67, 76, 79, 97, 99, 100, 102, 103, 108, 111, 115, 121, 123, 147, 153, 155, 179, 192, 195, 201, 203, 204, 205, 207, 211, 217, 219, 240, 243, 252, 255, 259, 268, 271, 304, 307, 316, 319, 385

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A044836 (for base 10).

Programs

Mathematica

meQ[n_]:=Module[{b=Boole[EvenQ[Length/@Split[IntegerDigits[n,2]]]]}, Count[ b,1]> Length[b]/2]; Select[Range[400],meQ] (* Harvey P. Dale, Aug 02 2013 *)