A103594 - OEIS

%I #16 Feb 01 2020 18:57:03

%S 2,3,5,13,53,277,2741,64663,5195977,2358926351,12041724518809,

%T 1801241230056600523

%N Smallest prime p such that Sum_{primes q <= p} 1/q >= n/3.

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

%t Prime[m], {n, 1, 10}] (* _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(10) from _Robert Price_, Dec 10 2013

%E a(11) and a(12) copied from A103600(22) and A016088(4), respectively, by _Jon E. Schoenfield_, Feb 01 2020