|
%I #13 Apr 22 2021 03:37:17
%S 170,138,750,102,118,680,310,992,618,130,50,112,198,530,100,260,3720,
%T 90,102,10,98,30,1500,240,156,46,24,110,414,196,200,114,642,24,120,10,
%U 170,6,24,90,384,12,274,6,278,430,20,150,30,6,280,3644,190,182,118,380
%N Differences between successive 8-digit distinct digit primes.
%H Daniel Starodubtsev, <a href="/A074666/b074666.txt">Table of n, a(n) for n = 1..90509</a> (complete sequence)
%e a(1)=170 because first two 8-digit distinct-digit primes are 10234589 and 10234759 and difference between them is 170.
%t se=Select[Range[10234589, 98765431, 2], Length[Union[IntegerDigits[ # ]]]==8 &&PrimeQ[ # ]&]; Flatten[Table[{se[[i+1]]-se[[i]]}, {i, 90510}]]
%t Differences[Select[Prime[Range[679128,685000]],Length[Union[ IntegerDigits[#]]] == 8&]] (* _Harvey P. Dale_, Nov 12 2014 *)
%Y The eight-digit distinct-digit primes are in A074665.
%K fini,full,nonn,base
%O 1,1
%A _Zak Seidov_, Aug 30 2002
|
