A074666 Differences between successive 8-digit distinct digit primes.
170, 138, 750, 102, 118, 680, 310, 992, 618, 130, 50, 112, 198, 530, 100, 260, 3720, 90, 102, 10, 98, 30, 1500, 240, 156, 46, 24, 110, 414, 196, 200, 114, 642, 24, 120, 10, 170, 6, 24, 90, 384, 12, 274, 6, 278, 430, 20, 150, 30, 6, 280, 3644, 190, 182, 118, 380
Offset: 1
Examples
a(1)=170 because first two 8-digit distinct-digit primes are 10234589 and 10234759 and difference between them is 170.
Links
- Daniel Starodubtsev, Table of n, a(n) for n = 1..90509 (complete sequence)
Crossrefs
The eight-digit distinct-digit primes are in A074665.
Programs
-
Mathematica
se=Select[Range[10234589, 98765431, 2], Length[Union[IntegerDigits[ # ]]]==8 &&PrimeQ[ # ]&]; Flatten[Table[{se[[i+1]]-se[[i]]}, {i, 90510}]] Differences[Select[Prime[Range[679128,685000]],Length[Union[ IntegerDigits[#]]] == 8&]] (* Harvey P. Dale, Nov 12 2014 *)