//,grep!($'%$_),2..$_-1or push@p,$_ for 3..300;//,map{$a[$'+$_].=" $'+$_"if$'<=$_}@p for@p;print$_*2,":",$a[$_*2],$/for 3..150
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page