OFFSET
1,1
LINKS
Sebastian Sargenti, Table of n, a(n) for n = 1..128
EXAMPLE
5 = 2+3; 5 is a twin prime with 7.
17 = 2+3+5+7; 17 is a twin prime with 19.
41 = 2+3+5+7+11+13; 41 is a twin prime with 43.
197 = 2+3+5+7+11+13+17+19+23+29+31+37; 197 is a twin prime with 199.
MATHEMATICA
Select[Accumulate @ Select[Range[45000], PrimeQ], PrimeQ[#] && PrimeQ[# + 2] &] (* Amiram Eldar, Aug 01 2021 *)
PROG
(Python)
from itertools import accumulate
from sympy import isprime, primerange
list(filter(lambda p: isprime(p) and isprime(p+2), accumulate(primerange(2, 10000)))) # David Radcliffe, Aug 01 2021
(PARI) lista(nn) = {my(s=0); for (n=1, nn, s += prime(n); if (isprime(s) && isprime(s+2), print1(s, ", ")); ); } \\ Michel Marcus, Aug 21 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Sebastian Sargenti, Jul 29 2021
EXTENSIONS
a(13)-a(31) from Jon E. Schoenfield, Jul 29 2021
STATUS
approved