cat(0,cumsum(2^rep(0:19,c(1:19,1))),sep="
")