OFFSET
1,1
REFERENCES
Enoch Haga, Exploring Prime Numbers on Your PC, 2nd edition, 1998, ISBN 1-885794-16-9, Table 5, pp. 40-41.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..201
FORMULA
EXAMPLE
First consecutive prime pair having difference 60 is p1=43331, p2=43391; next is p3=102701, p4=102761; so a(30)=102701-43331=59370.
MATHEMATICA
Flatten[Table[Differences[First /@ Take[Select[Partition[Prime[Range[60000]], 2, 1], Differences[#] == {2 n} &], 2]], {n, 40}]] (* Jayanta Basu, Jun 27 2013 *)
PROG
(PARI) a(n)=my(k, p=2, p1); forprime(q=3, , if(q-p==2*n, if(k++>1, return(p-p1), p1=p)); p=q) \\ Charles R Greathouse IV, Jun 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Jud McCranie
a(31) inserted by Jayanta Basu, Jun 27 2013
STATUS
approved