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]]]] } 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]]]] }