OFFSET
1,2
MATHEMATICA
ntenQ[n_]:=Module[{d=Select[DigitCount[n, 11], #>0&]}, Length[d] == Length[ Union[d]]]; Select[Range[250], ntenQ] (* Harvey P. Dale, Dec 18 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved