|
|
A074669
|
|
Six-digit distinct-digit primes.
|
|
12
|
|
|
102359, 102367, 102397, 102437, 102497, 102539, 102547, 102563, 102587, 102593, 102643, 102647, 102653, 102673, 102679, 102763, 102769, 102793, 102859, 102953, 102967, 102983, 103289, 103457, 103529, 103549, 103567, 103657, 103687, 103769, 103867, 103967, 104239
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
There are exactly 10239 six-digit primes with distinct digits.
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)=102359 because it is the first (smallest) 6-digit primes with all distinct digits.
|
|
MATHEMATICA
|
Select[Range[100001, 999999, 2], Length[Union[IntegerDigits[ # ]]]==6 && PrimeQ[ # ]&]
Take[Select[Prime[Range[PrimePi[100000]+1, PrimePi[999999]]], Max[DigitCount[#]]==1&], 50] (* Harvey P. Dale, Jan 09 2011 *)
Select[Sort[FromDigits/@Flatten[Permutations/@Subsets[Range[0, 9], {6}], 1]], IntegerLength[#] == 6&&PrimeQ[#]&] (* Harvey P. Dale, Jul 28 2017 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,full,nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|