|
%I #9 Aug 11 2014 22:45:47
%S 404851,576791,818723,843911,1053863,1138273,1294849,1467989,1876859,
%T 1964987,1966697,1985077,2030789,2214383,2220553,2423249,2483291,
%U 2527823,2542237,2638087,2680141,2856683,2910329,3106487,3112147,3112519,3175169,3279037,3398761
%N Primes followed by a gap of 90.
%H M. F. Hasler, <a href="/A204764/b204764.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%t Transpose[Select[Partition[Prime[Range[250000]],2,1],Last[#] - First[#] == 90&]][[1]] (* _Harvey P. Dale_, Jul 31 2012 *)
%o (PARI) p=0; g=90; for(c=1, 100, while(g+p!=p=nextprime(p+1), ); print1(", "p-g)) \\
%K nonn
%O 1,1
%A _M. F. Hasler_, Jan 18 2012
|
