R 如何定义递归函数序列？

我试图定义以下函数，但失败了。欢迎提出任何建议

H = list()
H[[1]] = function(x) 1
for(i in 2:4) H[[i]] = function(x) H[[i-1]](x)*x+1

> H
[[1]]
function (x) 
1
[[2]]
function (x) 
H[[i - 1]](x) * x + 1
[[3]]
function (x) 
H[[i - 1]](x) * x + 1
[[4]]
function (x) 
H[[i - 1]](x) * x + 1

> H[[1]](1)
 1  
> H[[2]](1)
 Too Deep Nesting

---

与其递归定义一组函数，不如定义一个递归函数：

H <- function(x, n) {
  if (n == 1) 1 else H(x, n-1) * x + 1
} 

H