OFFSET
1,1
COMMENTS
Prime gaps (A001223) are the differences between consecutive prime numbers. They begin: 1, 2, 2, 4, 2, 4, 2, 4, 6, ...
EXAMPLE
We need the first 15 prime gaps (1, 2, 2, 4, 2, 4, 2, 4, 6, 2, 6, 4, 2, 4, 6) before we reach the 3rd appearance of 6, so a(6) = 15.
MATHEMATICA
nn=1000;
gaps=Differences[Array[Prime, nn]];
Table[Position[gaps, 2*n][[n, 1]], {n, Select[Range[nn], Length[Position[gaps, 2*#]]>=#&]}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 04 2022
STATUS
approved