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