for$f(2..44){$s[$f*$_]=1for 2..999}map{print"$_,",$_+2,$/if!$s[$_]*!$s[$_+2]}3..1997
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page