The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #18 Feb 18 2019 02:09:00
%S 2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,38,40,44,52,56,62,68,98,
%T 128
%N Even numbers having no more than three partitions into two odd primes.
%C A002375(a(n)/2) <= 3.
%C There are no other terms <= 30000. Could it be that no other terms exist? - _John W. Layman_, Jul 28 2003
%C There are no further terms < 100000. - _Harvey P. Dale_, Apr 17 2018
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GoldbachPartition.html">Goldbach Partition.</a>
%H <a href="/index/Go#Goldbach">Index entries for sequences related to Goldbach conjecture</a>
%t 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 *)
%t p2Q[n_]:=Count[n-Prime[Range[2,PrimePi[n/2]]],_?PrimeQ]<4; Select[ 2*Range[70],p2Q] (* _Harvey P. Dale_, Apr 17 2018 *)
%Y Cf. A084562, A084564.
%K nonn,more
%O 1,1
%A _Reinhard Zumkeller_, May 30 2003