A204807 Primes followed by a gap of 200 = nextprime(p) - p.

378043979, 436402859, 481691513, 496333259, 529811591, 566348087, 587673143, 613621031, 642407387, 707840657, 735533657, 739358843, 751127249, 756470279, 776996897, 782602013, 783476651, 796714157, 803011589, 819905759, 888967283

Offset: 1

Author

M. F. Hasler, Jan 19 2012

Keywords

• nonn

Comments

All terms == 5 (mod 6). - Zak Seidov, Apr 04 2013

Links

• Zak Seidov, Table of n, a(n) for n = 1..5000
• Index entries for primes, gaps between.

Programs

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 *)

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)))}

Formula

a(n) = A000040(A116497(n)).