In[]:=
NestList[Nest[#+1&,#,2]&,0,10]
Out[]=
{0,2,4,6,8,10,12,14,16,18,20}
In[]:=
NestList[Nest[Nest[#+1&,#,2]&,#,2]&,0,10]
Out[]=
{0,4,8,12,16,20,24,28,32,36,40}
In[]:=
Nest[x|->Nest[u|->u+1,x,3],0,3]
Out[]=
9
In[]:=
Nest[y|->Nest[x|->Nest[u|->u+1,x,2],y,2],0,2]
Out[]=
8
In[]:=
Nest[z|->Nest[y|->Nest[x|->Nest[u|->u+1,x,2],y,2],z,2],0,2]
Out[]=
16
In[]:=
Nest[Nest[Nest[Nest[#+1&,#,2]&,#,2]&,#,2]&,0,2]
Out[]=
16
In[]:=
NestList[Nest[Nest[Nest[#+1&,#,2]&,#,2]&,#,2]&,0,2]
Out[]=
{0,8,16}
NestList[Nest[Nest[Nest[#+1&,#,2]&,#,2]&,#,2]&,0,2]
In[]:=
NestList[Nest[Nest[Nest[#+1&,1,#]&,1,#]&,1,#]&,0,4]
Out[]=
{0,1,2,3,4}
In[]:=
ttt[n_]:=NestList[Nest[Nest[Nest[#+1&,n,#]&,n,#]&,n,#]&,0,4]
In[]:=
ttt[3]
In[]:=
s[n_]:=n+1
In[]:=
NestList[s,0,5]
Out[]=
{0,1,2,3,4,5}
Nest[#1]
In[]:=
NestList[Nest[#+1&,#,#]&,1,5]
Out[]=
{1,2,4,8,16,32}
NestList[Nest[#+1&,#,#]&,1,5]
In[]:=
Nest[s,4,7]
Out[]=
11
Nest[Nest[s,#1,#2]&,a,b]
In[]:=
f[1,x_,y_]:=x+y;f[m_,x_,y_]:=Nest[f[m-1,x,#]&,x,y-1]
In[]:=
f[4,2,3]
Out[]=
16