OFFSET
1,1
COMMENTS
All terms == 5 (mod 6). - Zak Seidov, Apr 04 2013
LINKS
MATHEMATICA
Select[Partition[Prime[Range[455*10^5]], 2, 1], #[[2]]-#[[1]]==200&][[All, 1]] (* The program may take a long time to run. *) (* Harvey P. Dale, Aug 03 2020 *)
PROG
(PARI) list_gaps(g=200, f, N=100)={my(p=0); for(c=1, N, while(g+p!=p=nextprime(p+1), ); if(f, write(f".txt", c" ", p-g), print1(", "p-g)))}
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 19 2012
STATUS
approved