OFFSET
1,1
LINKS
Karl-Heinz Hofmann, Table of n, a(n) for n = 1..10000
MAPLE
select(isprime, ListTools:-PartialSums([seq(ithprime(i), i=1..1000)]) -~ 1); # Robert Israel, Sep 18 2025
MATHEMATICA
Select[Accumulate[Prime[Range[400]]] - 1, PrimeQ] (* Amiram Eldar, Sep 16 2025 *)
PROG
(Python)
from sympy import sieve, isprime
print([(s-1) for k in range(1, 370, 2) if isprime((s:=sum(sieve[1:k+1]))-1)])
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Karl-Heinz Hofmann, Sep 16 2025
STATUS
approved
