for$p(@p=grep 2**$_%++$_==1,@n=2..300){$p<=$_&&push@{$p+$_},"$p+$_"for@p}@$_&&print"$_: @$_ "for@n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page