

A074672


Differences between successive fivedigit distinctdigit primes.


8



4, 6, 6, 8, 6, 16, 68, 12, 58, 2, 24, 4, 2, 4, 24, 42, 38, 22, 8, 30, 12, 18, 30, 36, 6, 10, 14, 36, 48, 10, 6, 6, 8, 70, 20, 16, 14, 1050, 6, 6, 24, 24, 250, 32, 30, 28, 20, 16, 6, 8, 10, 6, 36, 8, 22, 14, 6, 48, 10, 6, 6, 30, 8, 6, 36, 4, 20, 46, 44, 40, 14, 46
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

There are exactly 2529 fivedigit primes with all distinct digits, so the sequence of differences is finite as well. The end of the sequence is: 42, 18, 80, 42, 30, 10, 38, 22, 38, 22, 30, 38, 162, 28, 2, 18, 156, 24, 6, 10, 66, 20, 64, 6, 38, 6, 60, 4, 6, 20, 60, 46, 14, 6, 34, 36, 18, 2, 10, 48, 6, 14, 72, 18.


LINKS



EXAMPLE

a(1)=4 because the first and second fivedigit primes with all distinct digits are 10243, 10247 and difference between them is 4.


MATHEMATICA

se=Select[Range[10243, 98731, 2], Length[Union[IntegerDigits[ # ]]]==5&&PrimeQ[ # ]&]; Flatten[Table[{se[[i+1]]se[[i]]}, {i, 2528}]]
Differences[Select[Prime[Range[PrimePi[10000]+1, PrimePi[99999]]], Max[ DigitCount[ #]] ==1&]] (* Harvey P. Dale, Jul 19 2019 *)


CROSSREFS

The first differences of the A074671. For 3digit distinctdigit primes, see A074675, A074676. For 4digit distinctdigit primes, see A074673, A074674. For 6digit distinctdigit primes, see A074669, A074670. For 7digit distinctdigit primes, see A074667, A074668. For 8digit distinctdigit primes, see A074665, A074666.


KEYWORD

fini,full,nonn,base


AUTHOR



STATUS

approved



