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
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
KEYWORD
nonn,more
AUTHOR
James R. Buddenhagen, Mar 28 2005
EXTENSIONS
a(10) from Robert Price, Dec 10 2013
STATUS
approved