map$a[$i*$_]+=$s,print(($s=2**++$i-$_)/$i,$/)..50for@a[1..50]