OFFSET
1,1
REFERENCES
Enoch Haga, Exploring Prime Numbers on Your PC, 2nd edition, 1998, ISBN 1-885794-16-9, Table 4, pages 38-39.
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..257
FORMULA
EXAMPLE
The second prime gap of 4 is at 13 to 17, so a(2)=13.
MATHEMATICA
Flatten[Table[First /@ Take[Select[Partition[Prime[Range[32000]], 2, 1], Differences[#] == {2 n} &], {2}], {n, 36}]] (* Jayanta Basu, Jun 28 2013 *)
tt[_] := -2; p0 = NextPrime@2; p1 = NextPrime@p0; While[p0 < 25000000, diff = (p1 - p0)/2; If[tt[diff] == -1, tt[diff] = p0]; If[tt[diff] == -2, tt[diff] = -1]; {p0, p1} = {p1, NextPrime@p1}]; tt@# & /@ Range@77 (* Robert G. Wilson v, Nov 26 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved