OFFSET
1,1
MATHEMATICA
rla11Q[n_]:=Module[{a=Boole[EvenQ/@(Length/@Split[IntegerDigits[n, 11]])]}, a == PadRight[{}, Length[a], {1, 0}]]; Select[Range[600], rla11Q] (* Harvey P. Dale, Jul 24 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved