NestList[f[## & @@ # + #] &, f[1], 3] {
f[1], f[1 + f[1]], f[1 + f[1] + f[1 + f[1]]], f[1 + f[1] + f[1 + f[1]] + f[1 + f[1] + f[1 + f[1]]]] } Kuba
- 138.9k
- 13
- 297
- 803
NestList[f[## & @@ # + #] &, f[1], 3] {
f[1], f[1 + f[1]], f[1 + f[1] + f[1 + f[1]]], f[1 + f[1] + f[1 + f[1]] + f[1 + f[1] + f[1 + f[1]]]] }