%I #8 Oct 16 2024 21:40:53
%S 1,45,105,675,987,1431,1593,1677,1785,1875,2037,2541,3039,3045,3051,
%T 3183,3267,3531,3699,4113,4239,4377,4443,5643,5673,5709,6027,6543,
%U 6615,6771,6891,6915,6999,8043,8109,8313,8607,8739,10197,10569,11103,11139,11361,11787,12045
%N Numbers k such that the sum of the first k greater of twin primes is a greater of twin prime.
%H Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/TwinPrimes.html">Twin Primes</a>.
%o (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
%Y Cf. A006512, A013916, A071149, A086168, A089228, A376891.
%K nonn,new
%O 1,2
%A _Ilya Gutkovskiy_, Oct 08 2024