write(cumsum(2^rep(0:19,c(2,2:19,1)))-1,1,1)