|
| |
|
|
A074672
|
|
Differences between successive five-digit distinct-digit primes.
|
|
6
| |
|
|
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; internal format)
|
|
|
|
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.
|
|
|
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}]]
|
|
|
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: A103412 A103411 A200118 * A070259 A111653 A173395
Adjacent sequences: A074669 A074670 A074671 * A074673 A074674 A074675
|
|
|
KEYWORD
| fini,nonn,base
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Aug 30 2002
|
| |
|
|
