OFFSET
1,1
EXAMPLE
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.
MATHEMATICA
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}]]
CROSSREFS
KEYWORD
fini,nonn,base
AUTHOR
Zak Seidov, Aug 30 2002
STATUS
approved