OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Digit
MATHEMATICA
Select[Range[1110], Mod[Length[IntegerDigits[#1]], 2] == 0 && Mod[Length[Union[IntegerDigits[#1]]], 2] == 1 & ]
endQ[n_]:=Module[{idn=IntegerDigits[n]}, EvenQ[Length[idn]]&&OddQ[ Length[ Union[ idn]]]]; Select[Range[1200], endQ] (* Harvey P. Dale, Mar 31 2019 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Ilya Gutkovskiy, Jan 08 2017
STATUS
approved