Goldbach Conjecture

[Teresa]

I did not know about Goldbachs conjecture. Thanks for sharing the idea. This is DrDs frame with some changes. Have not found out yet how to plot with the prime so this has to wait. [/quote]

Code:


EXPORT Goldbach(n)
//  Goldbach conjecture (June 7, 1742):  Positive even integers greater than 2 are the sum of two prime numbers.
BEGIN
  local a:=2, maxn:= n/2, pp:={};         
  print();
         
// Make list of prime number pairs
 REPEAT
    IFTE(isPrime(n-a), pp:=concat(pp,{{a,n-a}}))));   
    a:=nextprime(a);
 UNTIL a>maxn;  //end calc
 
  print(pp);  // prime pairs
  print("Goldbach Partitions = " + SIZE(pp));   //number of pairs 
END;  // Ends program