1
1
1 |
In[]:=
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s][s]]][s][s][s],40000]]
Out[]=
2
2
2 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s[s][s]]]][s][s],2000]]
3
3
3 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s]][s][s][s][s][s],2000]]
4
4
4 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s]][s][s][s][s]],2000]]
5
5
5 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s]][s][s]][s][s],2000]]
6
6
6 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s]][s]][s][s][s],2000]]
7
7
7 |
ListLinePlot[LeafCount/@SKFixedPointEvolveList[s[s[s[s[s]][s]]][s][s],2000]]
8
8
8 |