OFFSET
1,1
COMMENTS
A002375(a(n)/2) <= 3.
There are no other terms <= 30000. Could it be that no other terms exist? - John W. Layman, Jul 28 2003
There are no further terms < 100000. - Harvey P. Dale, Apr 17 2018
LINKS
Eric Weisstein's World of Mathematics, Goldbach Partition.
MATHEMATICA
nn=10^2; ps=Boole[PrimeQ[Range[1, 2*nn, 2]]]; Select[Range[nn], Sum[ps[[i]]ps[[#-i+1]], {i, Ceiling[#/2]}]<=3&]*2 (* Jayanta Basu, May 25 2013 *)
p2Q[n_]:=Count[n-Prime[Range[2, PrimePi[n/2]]], _?PrimeQ]<4; Select[ 2*Range[70], p2Q] (* Harvey P. Dale, Apr 17 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Reinhard Zumkeller, May 30 2003
STATUS
approved