A103593 Smallest number m such that Sum_{k=1..m} 1/prime(k) >= n/3.

1, 2, 3, 6, 16, 59, 400, 6467, 361139, 114916199

Offset

1,2

Comments

a(n) <= e^(e^(n/3)), therefore a(10) < 1492725701441. - Stefan Steinerberger, Mar 18 2006

a(11) > 5*10^10. - Robert Price, Dec 10 2013

Links

Table of n, a(n) for n=1..10.

Eric Weisstein's World of Mathematics, Harmonic Series of Primes

Mathematica

Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/3, m++];
m, {n, 1, 10}] (* Robert Price, Mar 27 2019 *)

Crossrefs

Cf. A016088, A046024, A103591-A103600.

Sequence in context: A087983 A340911 A328409 * A174118 A368947 A006449

Adjacent sequences: A103590 A103591 A103592 * A103594 A103595 A103596

Keyword

nonn,more

Author

James R. Buddenhagen, Mar 28 2005

Extensions

a(10) from Robert Price, Dec 10 2013

Status

approved