A103600 Smallest prime p such that Sum_{primes q <= p} 1/q >= n/6.

2, 2, 2, 3, 3, 5, 7, 13, 29, 53, 109, 277, 809, 2741, 11789, 64663, 483281, 5195977, 85861889, 2358926351, 118185163069, 12041724518809

Offset: 1

Author

James R. Buddenhagen, Mar 28 2005

Keywords

• nonn

Crossrefs

Cf. A016088, A046024, A103591-A103599.

Programs

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 *)

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