OFFSET
1,1
MATHEMATICA
okQ[n_]:=Module[{dc4=DigitCount[n, 11, 4]}, dc4>0&&dc4==DigitCount[n, 11, 6]]
Select[Range[1100], okQ] (* Harvey P. Dale, Jan 09 2011 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
STATUS
approved