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