a[d[n%d]]+_[!--d]
history -p $[(a[d=n={1..50}]+=2**n-_)/n]