p:printf;f:primep;for i:3thru 150 do(p(?t,"~d:",i*2),for j:3thru i do if(f(j)and f(a:i*2-j))then p(?t," ~d+~d",j,a),?terpri());
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page