Skip to main content
added 244 characters in body
Source Link
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]]]] } 

alternatively (but we have to start with f[1+f[1]]:

NestList[Insert[#, #, {1, -1}] &, f[1 + f[1]], 2] 
{ 
 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]]]] } 
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]]]] } 

alternatively (but we have to start with f[1+f[1]]:

NestList[Insert[#, #, {1, -1}] &, f[1 + f[1]], 2] 
{ 
 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]]]] } 
Source Link
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]]]] }