cp's OEIS Frontend

A100964 Smallest prime number that begins a prime gap of at least 2n.

%I A100964 #15 Sep 06 2024 14:43:16
%S A100964 3,7,23,89,113,113,113,523,523,887,1129,1327,1327,1327,1327,1327,1327,
%T A100964 9551,15683,15683,15683,15683,19609,19609,19609,19609,31397,31397,
%U A100964 31397,31397,31397,31397,31397,31397,31397,31397,155921,155921,155921,155921
%N A100964 Smallest prime number that begins a prime gap of at least 2n.
%H A100964 Amiram Eldar, <a href="/A100964/b100964.txt">Table of n, a(n) for n = 1..775</a>
%F A100964 a(n) = prime(A144309(n)). - _Michel Marcus_, Nov 02 2013
%e A100964 a(5) = a(6) = a(7) = 113 because there is a gap of 14 between 113 and 127.
%t A100964 k=1; Table[While[Prime[k+1]-Prime[k] < 2n, k++ ]; Prime[k], {n, 48}]
%o A100964 (PARI) lista(pmax) = {my(k = 1, prv = 2, m = 2, kprv = 2); forprime(p = 3, pmax, k++; if(p - prv >= m, for(i = 1, (p - prv - m)/2 + 1, print1(prv, ", ")); m = p - prv + 2; kprv = k); prv = p);} \\ _Amiram Eldar_, Sep 06 2024
%Y A100964 Cf. A000230, A002386, A005250, A144309.
%K A100964 nonn
%O A100964 1,1
%A A100964 _T. D. Noe_, Nov 23 2004