|
%I #14 Aug 03 2020 15:25:40
%S 378043979,436402859,481691513,496333259,529811591,566348087,
%T 587673143,613621031,642407387,707840657,735533657,739358843,
%U 751127249,756470279,776996897,782602013,783476651,796714157,803011589,819905759,888967283
%N Primes followed by a gap of 200 = nextprime(p) - p.
%C All terms == 5 (mod 6). - _Zak Seidov_, Apr 04 2013
%H Zak Seidov, <a href="/A204807/b204807.txt">Table of n, a(n) for n = 1..5000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%F a(n) = A000040(A116497(n)).
%t 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 *)
%o (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)))}
%K nonn
%O 1,1
%A _M. F. Hasler_, Jan 19 2012
|
