|
%I #6 Jan 14 2016 11:12:03
%S 7621259,8917523,10270451,14518211,16525757,16684331,23008409,
%T 23995859,31698521,32332253,32379089,33189557,33734147,34189487,
%U 36067223,36128819,40454789,42334769,44639099,47084399,47710997,48527939,50339321,54204053
%N Primes followed by a gap of 140 = nextprime(p)-p.
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%t Transpose[Select[Partition[Prime[Range[3300000]],2,1],#[[2]]-#[[1]] == 140&]][[1]] (* _Harvey P. Dale_, Jan 14 2016 *)
%o (PARI) p=0; g=140; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
%K nonn
%O 1,1
%A _M. F. Hasler_, Jan 19 2012
|
