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,1

Links

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

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 *)

Crossrefs

Cf. A044836 (for base 10).

Sequence in context: A349663 A188549 A287357 * A248105 A269315 A329575

Adjacent sequences: A044825 A044826 A044827 * A044829 A044830 A044831

Keyword

nonn,base

Author

Clark Kimberling

Status

approved