login
A103600
Smallest prime p such that Sum_{primes q <= p} 1/q >= n/6.
9
2, 2, 2, 3, 3, 5, 7, 13, 29, 53, 109, 277, 809, 2741, 11789, 64663, 483281, 5195977, 85861889, 2358926351, 118185163069, 12041724518809
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
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