|
%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
|
