|
%I #7 Nov 21 2013 12:50:22
%S 27915737,65069327,80935103,84549821,98253527,99099773,105886883,
%T 110597483,117317297,124956059,130389293,134944361,139040903,
%U 140217647,140566253,153207191,156479129,162973457,182754569,189599393,190864901
%N Primes followed by a gap of 170 = nextprime(p)-p.
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%t Transpose[Select[Partition[Prime[Range[11000000]],2,1],#[[2]]-#[[1]] == 170&]][[1]] (* _Harvey P. Dale_, Apr 25 2012 *)
%o (PARI) list_gaps(g=170,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
|
