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

2, 3, 5, 13, 53, 277, 2741, 64663, 5195977, 2358926351, 12041724518809, 1801241230056600523

Offset

1,1

Links

Table of n, a(n) for n=1..12.

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

Cf. A016088, A046024, A103591-A103600.

Sequence in context: A111288 A064526 A261192 * A042695 A288943 A074394

Adjacent sequences: A103591 A103592 A103593 * A103595 A103596 A103597

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