|
|
A204807
|
|
Primes followed by a gap of 200 = nextprime(p) - p.
|
|
4
|
|
|
378043979, 436402859, 481691513, 496333259, 529811591, 566348087, 587673143, 613621031, 642407387, 707840657, 735533657, 739358843, 751127249, 756470279, 776996897, 782602013, 783476651, 796714157, 803011589, 819905759, 888967283
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|