Goldbach partition by pooq

p:printf;f:primep;sum((p(?t,"~d:",i*2),sum(if(f(j)and f(a:i*2-j))then p(?t," ~d+~d",j,a),j,3,i),?terpri()),i,3,150);

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page