1


,
,
,
,
,
,

ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"200000,"MaxSteps"1000]]
In[]:=
ListLinePlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"5000,"MaxSteps"1000]],PlotRangeAll]
Out[]=

2


,
,
,
,
,
,

ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]]][s][s[s]],"MaxSize"200000,"MaxSteps"1000]]

3


,
,
,
,
,
,

ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s[s]]],"MaxSize"200000,"MaxSteps"1000]]

4


,
,
,
,
,
,

ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s][s]],"MaxSize"200000,"MaxSteps"1000]]

5


,
,
,
,
,
,

In[]:=
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"5000,"MaxSteps"1000]]
Out[]=
In[]:=
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"10000,"MaxSteps"1000],ScalingFunctions{"Log","Log"}]
Out[]=
In[]:=
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"25000,"MaxSteps"1000]]]
Out[]=

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

This is like

24

25

26

27

28

29

30

31

32 [halts]

33

34

35 [repetitive]

36 [halts]

37 [halts]

38

39

40

41

42

43

44 [? irregular]

45 [halts]

46 [quite regular]

All together