A103600 - OEIS

%I #14 Mar 27 2019 19:13:39

%S 2,2,2,3,3,5,7,13,29,53,109,277,809,2741,11789,64663,483281,5195977,

%T 85861889,2358926351,118185163069,12041724518809

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

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

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

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

%K nonn

%O 1,1

%A _James R. Buddenhagen_, Mar 28 2005

%E a(1), a(2), a(4) added for correctness, and a(19-21) included by _Martin Raab_, Mar 31 2009

%E a(22) from _Charles R Greathouse IV_, Jan 18 2012