A074674 Differences between successive four-digit distinct-digit primes.

10, 14, 6, 18, 6, 4, 140, 12, 10, 20, 4, 6, 8, 10, 20, 40, 42, 14, 4, 2, 10, 14, 6, 24, 4, 2, 4, 30, 20, 6, 18, 12, 4, 14, 10, 2, 18, 10, 20, 36, 4, 12, 14, 30, 6, 24, 6, 34, 24, 20, 6, 6, 28, 66, 14, 30, 22, 14, 10, 6, 12, 2, 4, 2, 48, 6, 10, 26, 130, 32, 6, 4, 6, 14, 10, 8, 28, 20, 22

Offset: 1

Author

Zak Seidov, Aug 30 2002

Keywords

• fini
• full
• nonn
• base

Comments

There are exactly 510 four-digit primes with all distinct digits, so the sequence of differences is finite as well.

Examples

			a(1)=10 because the first and second four-digit primes with all distinct digits are 1039, 1049 and difference between them is 10.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..509

Crossrefs

The first differences of the A074673. For 3-digit distinct-digit primes, see A074675, A074676. For 5-digit distinct-digit primes, see A074671, A074672. 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.

Programs

Mathematica

se=Select[Range[1039, 9871, 2], Length[Union[IntegerDigits[ # ]]]==4&&PrimeQ[ # ]&]; Flatten[Table[{se[[i+1]]-se[[i]]}, {i, 509}]]
Differences[Select[Prime[Range[169,1229]],Length[Union[ IntegerDigits[#]]] == 4&]] (* Harvey P. Dale, Oct 11 2015 *)