OFFSET
1,1
MATHEMATICA
mb11Q[n_]:=Total[If[EvenQ[Length[#]], 1, -1]&/@Split[IntegerDigits[n, 11]]]>0; Select[Range[4500], mb11Q] (* Harvey P. Dale, Jun 03 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved