map$a[$i*$_]+=$s,print(($s=2**++$i-$_)/$i,$/)..50for@a[1..50]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page