dim p(3e4):for i=3to 150?i*2,": ";:for j=3to i:p(i*j)=1:if!p(j)+p(i*2-j)?j,"+",i*2-j; j=j+1next:?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page