login
A044841
Positive integers with more base-15 runs of even length than odd.
1
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
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
KEYWORD
nonn,base
STATUS
approved