login
Primes followed by a gap of 170 = nextprime(p)-p.
1

%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