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
KEYWORD
nonn,base
AUTHOR
STATUS
approved