login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Sums of two even-indexed primes.
1

%I #11 Apr 29 2021 21:59:58

%S 6,10,14,16,20,22,26,32,36,38,40,42,44,46,48,50,56,58,60,62,64,66,68,

%T 72,74,78,80,82,84,86,90,92,96,98,100,102,104,106,108,110,114,116,118,

%U 120,122,124,126,130,132,134,136,138,140,142,144,146,150,152,154,156,158,160,162

%N Sums of two even-indexed primes.

%t Take[Union[Total /@ Tuples[Prime[2 Range[70]], 2]], 70]

%o (Python)

%o from sympy import primerange

%o def aupto(limit):

%o ep = [p for p in primerange(1, limit)][1::2]

%o ss = sorted(set(p1 + p2 for i, p1 in enumerate(ep) for p2 in ep[i:]))

%o return [s for s in ss if s <= limit]

%o print(aupto(162)) # _Michael S. Branicky_, Apr 24 2021

%o (PARI) my(N=18); select(x->(x<prime(2)+prime(2*N+2)), setbinop((x,y)->(x+y), vector(N, n, prime(2*n)))) \\ _Michel Marcus_, Apr 24 2021

%Y Cf. A338701 (sums of two odd-indexed primes).

%K nonn

%O 1,1

%A _Wesley Ivan Hurt_, Apr 24 2021