OFFSET
1,3
COMMENTS
a(18) > 5*10^10. - Robert Price, Dec 10 2013
MATHEMATICA
Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/5, m++];
m, {n, 1, 17}] (* Robert Price, Mar 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
James R. Buddenhagen, Mar 28 2005
EXTENSIONS
a(2)-a(3) and a(16)-a(17) from Robert Price, Dec 10 2013
STATUS
approved