Discussion 14

Give the first five terms of the given sequence

eqn <- function(x) {4^x/factorial(x+1)}
x <- list(1:5)
sapply(x, eqn)

##          [,1]
## [1,] 2.000000
## [2,] 2.666667
## [3,] 2.666667
## [4,] 2.133333
## [5,] 1.422222