NeighborCounts[g_,i0_,n_]:=Map[Length,Module[{gp=Dispatch[g]},NestList[Union[Flatten[{#,#/.gp}]]&,{i0},n]]]
SMWEvolveListNW[MAToMWRule[ToMARule3[maseq[[8]]]],MAToMWState[MAInitialState[61]],100];
NeighborCounts[%,1,15]
SMWEvolveListNW[MAToMWRule[mrs[[3]]],MAToMWState[MAInitialState[201]],400];
Differences[NeighborCounts[%,1,40]]
{2,3,5,6,6,7,8,10,14,11,12,13,16,13,13,13,12,15,12,11,14,14,11,18,12,14,18,16,8,8,8,8,7,6,7,5,6,5,4,4}
ListPlot[%,PlotJoined->True];
MAEvolveList[ToMARule[{35,57}],{Table[0,{15}],7},30]
{{{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},7},{{0,0,0,0,0,0,1,0,0,0,0,0,0,0,0},6},{{0,0,0,0,0,1,1,0,0,0,0,0,0,0,0},7},{{0,0,0,0,0,1,0,0,0,0,0,0,0,0,0},8},{{0,0,0,0,0,1,0,1,0,0,0,0,0,0,0},7},{{0,0,0,0,0,1,1,1,0,0,0,0,0,0,0},6},{{0,0,0,0,0,0,1,1,0,0,0,0,0,0,0},5},{{0,0,0,0,1,0,1,1,0,0,0,0,0,0,0},4},{{0,0,0,1,1,0,1,1,0,0,0,0,0,0,0},5},{{0,0,0,1,0,0,1,1,0,0,0,0,0,0,0},6},{{0,0,0,1,0,1,1,1,0,0,0,0,0,0,0},7},{{0,0,0,1,0,1,0,1,0,0,0,0,0,0,0},8},{{0,0,0,1,0,1,0,0,0,0,0,0,0,0,0},9},{{0,0,0,1,0,1,0,0,1,0,0,0,0,0,0},8},{{0,0,0,1,0,1,0,1,1,0,0,0,0,0,0},9},{{0,0,0,1,0,1,0,1,0,0,0,0,0,0,0},10},{{0,0,0,1,0,1,0,1,0,1,0,0,0,0,0},9},{{0,0,0,1,0,1,0,1,1,1,0,0,0,0,0},8},{{0,0,0,1,0,1,0,0,1,1,0,0,0,0,0},7},{{0,0,0,1,0,1,0,0,1,1,0,0,0,0,0},6},{{0,0,0,1,0,0,0,0,1,1,0,0,0,0,0},7},{{0,0,0,1,0,0,1,0,1,1,0,0,0,0,0},6},{{0,0,0,1,0,1,1,0,1,1,0,0,0,0,0},7},{{0,0,0,1,0,1,0,0,1,1,0,0,0,0,0},8},{{0,0,0,1,0,1,0,1,1,1,0,0,0,0,0},9},{{0,0,0,1,0,1,0,1,0,1,0,0,0,0,0},10},{{0,0,0,1,0,1,0,1,0,0,0,0,0,0,0},11},{{0,0,0,1,0,1,0,1,0,0,1,0,0,0,0},10},{{0,0,0,1,0,1,0,1,0,1,1,0,0,0,0},11},{{0,0,0,1,0,1,0,1,0,1,0,0,0,0,0},12},{{0,0,0,1,0,1,0,1,0,1,0,1,0,0,0},11}}
Last/@%
{7,6,7,8,7,6,5,4,5,6,7,8,9,8,9,10,9,8,7,6,7,6,7,8,9,10,11,10,11,12,11}
Position[%345,7]
{{1},{3},{5},{11},{19},{21},{23}}
Select[
MAToNet[list_]:=MapIndexed[Function[{p,q},First[q]->Flatten[Table[If[#=!={},#,Infinity]&[Select[Flatten[Position[list,p+i]],(#>First[q])&,1]],{i,-1,1}]]],list]
Can be optimized by precomputing all the results of Position.
MAToNet[%345]
{1{2,3,4},2{7,6,3},3{6,5,4},4{5,12,13},5{6,11,12},6{7,10,11},7{8,9,10},8{∞,∞,9},9{∞,∞,10},10{∞,20,11},11{20,19,12},12{19,14,13},13{14,15,16},14{19,18,15},15{18,17,16},16{17,26,27},17{18,25,26},18{19,24,25},19{20,21,24},20{∞,22,21},21{22,23,24},22{∞,∞,23},23{∞,∞,24},24{∞,∞,25},25{∞,∞,26},26{∞,28,27},27{28,29,30},28{∞,∞,29},29{∞,31,30},30{31,∞,∞},31{∞,∞,∞}}
MAEvolveList[ToMARule[{35,57}],MAInitialState[41],60];
MAToNet[Last/@%]
{1{2,3,4},2{7,6,3},3{6,5,4},4{5,12,13},5{6,11,12},6{7,10,11},7{8,9,10},8{∞,∞,9},9{∞,∞,10},10{∞,20,11},11{20,19,12},12{19,14,13},13{14,15,16},14{19,18,15},15{18,17,16},16{17,26,27},17{18,25,26},18{19,24,25},19{20,21,24},20{∞,22,21},21{22,23,24},22{∞,∞,23},23{∞,∞,24},24{∞,34,25},25{34,33,26},26{33,28,27},27{28,29,30},28{33,32,29},29{32,31,30},30{31,40,41},31{32,39,40},32{33,38,39},33{34,35,38},34{∞,36,35},35{36,37,38},36{∞,∞,37},37{∞,∞,38},38{∞,48,39},39{48,47,40},40{47,42,41},41{42,43,44},42{47,46,43},43{46,45,44},44{45,54,55},45{46,53,54},46{47,52,53},47{48,49,52},48{∞,50,49},49{50,51,52},50{∞,∞,51},51{∞,∞,52},52{∞,∞,53},53{∞,61,54},54{61,56,55},55{56,57,58},56{61,60,57},57{60,59,58},58{59,∞,∞},59{60,∞,∞},60{61,∞,∞},61{∞,∞,∞}}
MAEvolveList[ToMARule[{35,57}],MAInitialState[101],200];
MAToNet[Last/@%]
MMAEvolveList[mrs[[3]],MAInitialState[101],200];
MAToNet[Last/@%]