%I A074668
%S A074668 20,210,72,88,90,410,22,200,10,104,4,86,70,104,6,24,360,136,210,56,40,
%T A074668 50,34,24,462,80,18,22,68,36,4,6,254,6,6,84,4,512,24,6,4,56,94,50,160,
%U A074668 584,36,6,90,10,18,50,102,204,4,510,6,14,60,16,20,60,4,6
%N A074668 Differences between successive 7-digit distinct-digit primes.
%e A074668 a(1)=20 & a(2)=210 because first three 7-digit distinct-digit primes 
               are 1023467, 1023487, 1023697 and differences between them are 20 
               and 210.
%t A074668 a=1023451; b=a+8000; se7 = Select[Range[a, b, 2], Length[Union[IntegerDigits[ 
               # ]]] == 7 && PrimeQ[ # ] & ]; Flatten[Table[{se7[[i+1]]-se7[[i]]}, 
               {i, Length[se7]-1}]]
%Y A074668 The seven-digit distinct-digit primes are in A074667.
%Y A074668 Sequence in context: A121088 A133070 A135179 this_sequence A139620 A094311 
               A060853
%Y A074668 Adjacent sequences: A074665 A074666 A074667 this_sequence A074669 A074670 
               A074671
%K A074668 fini,nonn,base
%O A074668 1,1
%A A074668 Zak Seidov (zakseidov(AT)yahoo.com), Aug 30 2002