%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