login
A338703
Sums of two even-indexed primes.
1
6, 10, 14, 16, 20, 22, 26, 32, 36, 38, 40, 42, 44, 46, 48, 50, 56, 58, 60, 62, 64, 66, 68, 72, 74, 78, 80, 82, 84, 86, 90, 92, 96, 98, 100, 102, 104, 106, 108, 110, 114, 116, 118, 120, 122, 124, 126, 130, 132, 134, 136, 138, 140, 142, 144, 146, 150, 152, 154, 156, 158, 160, 162
OFFSET
1,1
MATHEMATICA
Take[Union[Total /@ Tuples[Prime[2 Range[70]], 2]], 70]
PROG
(Python)
from sympy import primerange
def aupto(limit):
ep = [p for p in primerange(1, limit)][1::2]
ss = sorted(set(p1 + p2 for i, p1 in enumerate(ep) for p2 in ep[i:]))
return [s for s in ss if s <= limit]
print(aupto(162)) # Michael S. Branicky, Apr 24 2021
(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
CROSSREFS
Cf. A338701 (sums of two odd-indexed primes).
Sequence in context: A225704 A228301 A193416 * A315160 A075777 A315161
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Apr 24 2021
STATUS
approved