%I #9 Aug 20 2024 16:13:44
%S 173359,175141,186481,203461,218287,253159,302329,399283,449473,
%T 458239,459523,517747,524521,546391,651517,675643,677239,703561,
%U 710119,724651,762409,914047,1015207,1023871,1037143,1072231,1072543,1074763,1149061,1189483,1195291
%N Primes p followed by a gap of 70 = nextprime(p) - p.
%H Robert Israel, <a href="/A204792/b204792.txt">Table of n, a(n) for n = 1..8813</a>
%H <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>.
%p P:= select(isprime, [seq(i,i=3..1.1*10^6,2)]):
%p L:= P[2..-1]-P[1..-2]:
%p R:= P[select(t -> L[t]=70, [$1..nops(L)])]; # _Robert Israel_, Oct 03 2017
%o (PARI) p=0; g=70; 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
|