|
%I #11 Aug 21 2021 22:22:43
%S 102345,102346,102347,102348,102349,102354,102356,102357,102358,
%T 102359,102364,102365,102367,102368,102369,102374,102375,102376,
%U 102378,102379,102384,102385,102386,102387,102389,102394,102395,102396,102397,102398,102435,102436
%N Numbers with exactly six distinct base-10 digits.
%C This is to A031969 as 6 is to 4. This is the 6th row of the array A(k,n) = n-th number in which the number of distinct base-10 digits is k. A031969 is the 4th row. A220063 is the 5th row. Pandigital numbers A050278 is the 10th row. The subsequence of primes begins: 102359, 102367, 102397, 102437.
%t Select[Range[100000, 103000], Length[Union[IntegerDigits[#]]] == 6 &] (* _T. D. Noe_, Dec 04 2012 *)
%Y Cf. A031969, A050278, A220063.
%K nonn,base,easy
%O 1,1
%A _Jonathan Vos Post_, Dec 03 2012
%E Corrected by _T. D. Noe_, Dec 04 2012
|
