In[]:=
s7dep=Depth[#,HeadsTrue]&/@SKOuterEvolveList[s[s][s][s[s]][s][s],300]
Out[]=
{6,6,6,7,7,7,7,8,9,10,11,12,12,13,14,15,15,15,16,17,17,18,18,18,18,18,18,19,19,20,21,22,23,23,23,24,25,25,26,27,28,29,30,30,30,31,32,32,33,33,33,33,33,33,33,33,33,33,33,33,34,35,35,35,36,37,37,38,38,38,38,38,38,38,38,39,39,40,41,42,43,44,45,45,45,46,47,47,48,48,48,48,48,49,49,49,50,51,51,52,53,54,55,56,57,58,58,58,59,60,60,61,61,61,61,61,62,63,63,63,64,65,65,66,67,68,69,70,71,72,73,73,73,74,75,75,76,76,76,76,76,77,78,79,79,79,80,81,81,82,83,84,85,86,87,88,89,90,90,90,91,92,92,93,93,93,93,93,94,95,96,97,97,97,98,99,99,100,101,102,103,104,105,106,107,108,109,109,109,110,111,111,112,112,112,112,112,113,114,115,116,117,117,117,118,119,119,120,121,122,123,124,125,126,127,128,129,130,130,130,131,132,132,133,133,133,133,133,134,135,136,137,138,139,139,139,140,141,141,142,143,144,145,146,147,148,149,150,151,152,153,153,153,154,155,155,156,156,156,156,156,157,158,159,160,161,162,163,163,163,164,165,165,166,167,168,169,170,171,172,173,174,175,176,177,178,178,178,179,180,180,181,181,181,181,181,182,183,184,185,186}
In[]:=
ListStepPlot[s7dep]
Out[]=
In[]:=
ListStepPlot[Differences[s7dep]]
Out[]=
In[]:=
Differences[s7dep]
Out[]=
{0,0,1,0,0,0,1,1,1,1,1,0,1,1,1,0,0,1,1,0,1,0,0,0,0,0,1,0,1,1,1,1,0,0,1,1,0,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,0,1,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,0,0,1,1,0,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,1,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,1,1,1,1,0,0,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,0,1,0,0,0,0,1,1,1,1,1}
In[]:=
ListStepPlot[Accumulate[2%-1]]
Out[]=
In[]:=
s7seq=LeafCount/@SKOuterEvolveList[s[s][s][s[s]][s][s],300]
Out[]=
{7,8,8,11,11,11,12,17,25,33,41,50,59,87,115,149,187,215,243,272,301,389,398,413,422,431,440,450,460,491,533,575,623,697,739,781,824,867,997,1127,1289,1451,1619,1912,2074,2236,2399,2562,3052,3062,3072,3088,3109,3119,3129,3140,3151,3185,3231,3312,3393,3480,3608,3689,3770,3852,3934,4181,4192,4215,4238,4267,4302,4325,4348,4372,4396,4469,4542,4627,4786,4945,5110,5355,5514,5673,5833,5993,6474,6498,6534,6595,6656,6723,6821,6882,6943,7005,7067,7254,7441,7628,7827,8214,8601,8994,9581,9968,10355,10743,11131,12296,12358,12420,12494,12631,12768,12911,13123,13260,13397,13535,13673,14088,14503,14918,15333,15760,16603,17446,18295,19566,20409,21252,22096,22940,25473,25611,25749,25887,26037,26326,26615,26910,27350,27639,27928,28218,28508,29379,30250,31121,31992,32863,33746,35501,37256,39017,41656,43411,45166,46922,48678,53947,54237,54527,54817,55107,55409,56002,56595,57194,58090,58683,59276,59870,60464,62247,64030,65813,67596,69379,71162,72957,76536,80115,83700,89075,92654,96233,99813,103393,114134,114728,115322,115916,116510,117104,117710,118911,120112,121319,123127,124328,125529,126731,127933,131540,135147,138754,142361,145968,149575,153182,156801,164028,171255,178488,189335,196562,203789,211017,218245,239930,241132,242334,243536,244738,245940,247142,248356,250773,253190,255613,259245,261662,264079,266497,268915,276170,283425,290680,297935,305190,312445,319700,326955,334222,348745,363268,377797,399588,414111,428634,443158,457682,501255,503673,506091,508509,510927,513345,515763,518181,520611,525460,530309,535164,542444,547293,552142,556992,561842,576393,590944,605495,620046,634597,649148,663699,678250,692801,707364,736479,765594,794715,838394,867509,896624,925740,954856,1042205,1047055,1051905,1056755,1061605,1066455,1071305,1076155,1081005,1085867}
In[]:=
ListStepPlot[Differences[s7seq],PlotRangeAll]
Out[]=
In[]:=
ListStepPlot[Differences[s7seq,2],PlotRangeAll]
Out[]=
In[]:=
Differences[s7seq,2]
Out[]=
{-1,3,-3,0,1,4,3,0,0,1,0,19,0,6,4,-10,0,1,0,59,-79,6,-6,0,0,1,0,21,11,0,6,26,-32,0,1,0,87,0,32,0,6,125,-131,0,1,0,327,-480,0,6,5,-11,0,1,0,23,12,35,0,6,41,-47,0,1,0,165,-236,12,0,6,6,-12,0,1,0,49,0,12,74,0,6,80,-86,0,1,0,321,-457,12,25,0,6,31,-37,0,1,0,125,0,0,12,188,0,6,194,-200,0,1,0,777,-1103,0,12,63,0,6,69,-75,0,1,0,277,0,0,0,12,416,0,6,422,-428,0,1,0,1689,-2395,0,0,12,139,0,6,145,-151,0,1,0,581,0,0,0,0,12,872,0,6,878,-884,0,1,0,3513,-4979,0,0,0,12,291,0,6,297,-303,0,1,0,1189,0,0,0,0,0,12,1784,0,6,1790,-1796,0,1,0,7161,-10147,0,0,0,0,12,595,0,6,601,-607,0,1,0,2405,0,0,0,0,0,0,12,3608,0,6,3614,-3620,0,1,0,14457,-20483,0,0,0,0,0,12,1203,0,6,1209,-1215,0,1,0,4837,0,0,0,0,0,0,0,12,7256,0,6,7262,-7268,0,1,0,29049,-41155,0,0,0,0,0,0,12,2419,0,6,2425,-2431,0,1,0,9701,0,0,0,0,0,0,0,0,12,14552,0,6,14558,-14564,0,1,0,58233,-82499,0,0,0,0,0,0,0,12}
In[]:=
ListStepPlot[DeleteCases[Differences[s7seq,2],0],PlotRangeAll]
Out[]=