A044841 Positive integers with more base-15 runs of even length than odd.

16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 3600, 3616, 3632, 3648, 3664, 3680, 3696, 3712, 3728, 3744, 3760, 3776, 3792, 3808, 3824, 7200, 7216, 7232, 7248, 7264, 7280, 7296, 7312, 7328, 7344, 7360

Offset

1,1

Links

Matthew House, Table of n, a(n) for n = 1..10000

Mathematica

b15eQ[n_]:=Module[{id=Split[IntegerDigits[n, 15]]}, Count[id, _?(EvenQ[ Length[ #]]&)]>Length[id]/2]; Select[Range[7500], b15eQ] (* Harvey P. Dale, Nov 13 2017 *)

Crossrefs

Sequence in context: A008598 A044061 A033028 * A033013 A043334 A023707

Adjacent sequences: A044838 A044839 A044840 * A044842 A044843 A044844

Keyword

nonn,base

Author

Clark Kimberling

Status

approved