OFFSET
1,2
FORMULA
a(2n) = A046024(n). - Michel Marcus, Aug 22 2013
MATHEMATICA
Table[m = 1; s = 0; While[(s = s + 1/Prime[m]) < n/2, m++];
m, {n, 1, 5}] (* Robert Price, Mar 27 2019 *)
PROG
(PARI) a(n) = my(s = 0, k = 1); while ((s += 1/prime(k)) < n/2, k++); k \\ Michel Marcus, Aug 22 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
James R. Buddenhagen, Mar 28 2005
EXTENSIONS
a(7) from Robert Price, Dec 10 2013
a(8) derived from A046024 by Robert Price, Dec 10 2013
STATUS
approved