A084563 Even numbers having no more than three partitions into two odd primes.
2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 38, 40, 44, 52, 56, 62, 68, 98, 128
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Goldbach Partition.
- Index entries for sequences related to Goldbach conjecture
Programs
-
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 *)
Comments