OFFSET
1,1
MATHEMATICA
Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/6, m++];
Prime[m], {n, 1, 17}] (* Robert Price, Mar 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
James R. Buddenhagen, Mar 28 2005
EXTENSIONS
a(1), a(2), a(4) added for correctness, and a(19-21) included by Martin Raab, Mar 31 2009
a(22) from Charles R Greathouse IV, Jan 18 2012
STATUS
approved