1,1

There are exactly 90510 eight-digit primes with all distinct digits. The last few are: 98745623, 98746031, 98746231, 98746321, 98750143, 98750213, 98750261, 98751043, 98751203, 98751403, 98751643, 98752061, 98752301, 98752361, 98752403, 98752603, 98752613, 98753201, 98753401, 98754163, 98754301, 98756431, 98760241, 98760421, 98760523, 98761543, 98762051, 98762431, 98762501, 98764013, 98764021, 98764153, 98764321, 98765143, 98765201, 98765413, 98765431.

10247693 is a member because it is prime and has 8 digits all distinct.

Select[Range[10234589, 98765431, 2], Length[Union[IntegerDigits[ # ]]]==8 &&PrimeQ[ # ]&]

First differences are in A074666.

Sequence in context: A133595 A108810 A034635 this_sequence A109177 A109179 A030093

Adjacent sequences: A074662 A074663 A074664 this_sequence A074666 A074667 A074668

fini,nonn

Zak Seidov (zakseidov(AT)yahoo.com), Aug 30 2002