A074672 Differences between successive five-digit distinct-digit primes.

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

Offset

1,1

Comments

There are exactly 2529 five-digit 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

Harvey P. Dale, Table of n, a(n) for n = 1..2528 (* Complete list of all terms *)

Example

a(1)=4 because the first and second five-digit 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 3-digit distinct-digit primes, see A074675, A074676. For 4-digit distinct-digit primes, see A074673, A074674. For 6-digit distinct-digit primes, see A074669, A074670. For 7-digit distinct-digit primes, see A074667, A074668. For 8-digit distinct-digit primes, see A074665, A074666.

Sequence in context: A103411 A200118 A254275 * A070259 A111653 A228363

Adjacent sequences: A074669 A074670 A074671 * A074673 A074674 A074675

Keyword

fini,full,nonn,base

Author

Zak Seidov, Aug 30 2002

Status

approved