A218019 Integers in which the number of distinct base-10 digits is 7.
1023456, 1023457, 1023458, 1023459, 1023465, 1023467, 1023468, 1023469, 1023475, 1023476, 1023478, 1023479, 1023485, 1023486, 1023487, 1023489, 1023495, 1023496, 1023497, 1023498, 1023546, 1023547, 1023548, 1023549, 1023564, 1023567, 1023568, 1023569
Offset: 1
Programs
-
Mathematica
Select[Range[1000000, 1030000], Length[Union[IntegerDigits[#]]] == 7 &] (* T. D. Noe, Dec 04 2012 *)
Comments