login
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
OFFSET
1,1
COMMENTS
All terms == 5 (mod 6). - Zak Seidov, Apr 04 2013
FORMULA
a(n) = A000040(A116497(n)).
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
Sequence in context: A233798 A230528 A129248 * A257954 A218455 A297848
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 19 2012
STATUS
approved