OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Twin Primes.
MAPLE
K:= 1: count:= 1: s:= 3: k:= 1:
for p from 5 by 6 do
if isprime(p) and isprime(p+2) then
k:= k+1;
s:= s+p;
if s mod 6 = 5 and isprime(s) and isprime(s+2) then
count:= count+1; K:= K, k;
if count = 100 then break fi;
fi fi od:
K; # Robert Israel, Oct 08 2024
PROG
(PARI) lista(nn) = my(v=select(p->isprime(p+2), primes(nn)), s = vector(#v)); s[1] = v[1]; for (i=2, #v, s[i] = s[i-1]+v[i]); Vec(select(x->(isprime(x) && isprime(x+2)), s, 1)); \\ Michel Marcus, Oct 10 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Oct 08 2024
STATUS
approved