options(width=80)
b <- sapply(1:50, function(n) (2*n + 20)/(n^2))
b