1
1
,
,,,,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s][s][s[s]][s][s]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
2
2
,
,,,,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s[s][s]]][s][s[s]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
3
3
,
,,,,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]][s][s[s[s]]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
4
4
,
,,,,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]][s][s[s][s]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
5
5
,
,,,,
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s[s]][s]][s][s[s]]],"MaxSize"200000,"MaxSteps"1000]],PlotRangeAll]
6
6