OFFSET
1,1
MATHEMATICA
Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/3, m++];
Prime[m], {n, 1, 10}] (* Robert Price, Mar 27 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
James R. Buddenhagen, Mar 28 2005
EXTENSIONS
a(10) from Robert Price, Dec 10 2013
a(11) and a(12) copied from A103600(22) and A016088(4), respectively, by Jon E. Schoenfield, Feb 01 2020
STATUS
approved