A346134 The sum S of the maximum number of consecutive primes starting with 2 such that S <= prime(n)^2.

2, 5, 17, 41, 100, 160, 281, 328, 501, 791, 874, 1264, 1593, 1720, 2127, 2747, 3447, 3638, 4438, 4888, 5117, 6081, 6870, 7699, 9206, 10191, 10538, 11240, 11599, 12718, 15968, 16840, 18650, 19113, 22039, 22548, 24133, 26369, 27517, 29897, 31734, 32353, 36227, 36888

Offset

1,1

Links

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

Example

a(3) = 2+3+5+7 = 17 because 17 <= prime(3)^2 < 28 = 2+3+5+7+11.
a(4) = 2+3+5+7+11+13 = 41 because 41 <= prime(4)^2 < 58 = 2+3+5+7+11+13+17.

Mathematica

Table[k=1; While[(s=Sum[Prime@i, {i, ++k}])<Prime@n^2]; s-Prime@k, {n, 50}] (* Giorgos Kalogeropoulos, Jul 06 2021 *)

Prog

(PARI) a(n) = my(s=0, p=2); while (s+p <= prime(n)^2, s += p; p = nextprime(p+1)); s; \\ Michel Marcus, Jul 05 2021
(Python)
from sympy import prime, nextprime
def a(n):
    p, s, lim = 1, 0, prime(n)**2
    while s <= lim: p = nextprime(p); s += p
    return s - p
print([a(n) for n in range(1, 51)]) # Michael S. Branicky, Jul 05 2021

Crossrefs

Cf. A001248, A007504.

Sequence in context: A118500 A323427 A080898 * A081763 A013918 A007351

Adjacent sequences: A346131 A346132 A346133 * A346135 A346136 A346137

Keyword

nonn

Author

Gil Broussard, Jul 05 2021

Status

approved