OFFSET
1,1
COMMENTS
There are exactly 2668 eight-digit primes using digits 0-to-7 exactly once, here the largest ones are given; cf. A109177 with the smallest ones.
MATHEMATICA
Sort[Take[FromDigits/@Select[Permutations[Range[0, 7]], First[#]!=0 && PrimeQ[ FromDigits[#]]&], -50], #1>#2&] (* Harvey P. Dale, Aug 16 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 21 2005
STATUS
approved