Goldbach partition by pooq

for i=3to 150?i*2,": ";
for j=3to i if f(j)*f(i*2-j)?j,"+",i*2-j;
next
?next
sub f(n)x=1
for a=2to n/2x=x*!!mod(n,a)next
return x
end sub

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

download

return to the top page