A103592 - OEIS

%I #23 Mar 23 2021 05:02:44

%S 2,5,29,277,11789,5195977,118185163069,1801241230056600523

%N a(n) is the smallest prime p such that Sum_{primes q <= p} 1/q >= n/2.

%t Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/2, m++];

%t Prime[m], {n, 1, 8}] (* _Robert Price_, Mar 27 2019 *)

%Y Cf. A016088, A046024, A103591-A103600.

%K nonn

%O 1,1

%A _James R. Buddenhagen_, Mar 28 2005

%E a(7)-a(8) from _Martin Raab_, Aug 24 2008

%E a(7) corrected by _Martin Raab_, Mar 31 2009