OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Goldbach Conjecture
EXAMPLE
a(1)=18 because prime(3)+prime(6)=prime(4)+prime(5)=5+13=7+11=18.
MATHEMATICA
lst = {}; Do[ If[ Prime[n] + Prime[n + 3] == Prime[n + 1] + Prime[n + 2], AppendTo[lst, Prime[n] + Prime[n + 3]]], {n, 184}]; lst (* Robert G. Wilson v, Apr 07 2005 *)
PROG
(Python)
from sympy import nextprime
A105093_list, plist = [], [2, 3, 5, 7]
while len(A105093_list) < 10000:
m = plist[0]+plist[3]
if m == plist[1]+plist[2]:
A105093_list.append(m)
plist = plist[1:] + [nextprime(plist[-1])] # Chai Wah Wu, Mar 30 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Apr 06 2005
EXTENSIONS
Edited and extended by Robert G. Wilson v, Apr 07 2005
STATUS
approved