In[]:=
ParallelTable[Module[{},SeedRandom[367645747+i];​​res=Module[{res},​​res=Reap[​​NestList[CompoundExpression[​​res=Reap[​​IteratePairCombine[#],{"Pairs","Next"}],​​Sow[Thread[res[[2,1,1,1]]->res[[2,2,1]]]],​​res[[1]]​​]&​​,​​InitialPool[3,1][10]​​,​​1000]];​​Association[​​"Evolution"->res[[1]],​​"Transitions"->res[[2,1]]​​]​​​​];​​​​i->First/@Split[ArrayPlot[​​ArrayPad[#,1]&/@CellularAutomaton[First[#],{{1},0},Last[#]],​​ColorRules->colors,ImageSize{Automatic,25Sqrt[Last[#]+1]}]&/@(First[ReverseSortBy[#,Last]]&/@(res["Evolution"]))]],{i,150}]
Out[]=
In[]:=
ParallelTable[Module[{},SeedRandom[367645747+i];​​res=Module[{res},​​res=Reap[​​NestList[CompoundExpression[​​res=Reap[​​IteratePairCombine[#],{"Pairs","Next"}],​​Sow[Thread[res[[2,1,1,1]]->res[[2,2,1]]]],​​res[[1]]​​]&​​,​​InitialPool[3,1][25]​​,​​500]];​​Association[​​"Evolution"->res[[1]],​​"Transitions"->res[[2,1]]​​]​​​​];​​​​i->First/@Split[ArrayPlot[​​ArrayPad[#,1]&/@CellularAutomaton[First[#],{{1},0},Last[#]],​​ColorRules->colors,ImageSize{Automatic,25Sqrt[Last[#]+1]}]&/@(First[ReverseSortBy[#,Last]]&/@(res["Evolution"]))]],{i,150}]
Out[]=

Simpler

In[]:=
ParallelTable[Module[{},SeedRandom[34645747+i];​​res=Module[{res},​​res=Reap[​​NestList[CompoundExpression[​​res=Reap[​​IteratePairCombine[#],{"Pairs","Next"}],​​Sow[Thread[res[[2,1,1,1]]->res[[2,2,1]]]],​​res[[1]]​​]&​​,​​InitialPool[3,1][10]​​,​​50]];​​Association[​​"Evolution"->res[[1]],​​"Transitions"->res[[2,1]]​​]​​​​];​​​​{Prepend[Framed[ImageCollage[​​ArrayPlot[​​ArrayPad[#,1]&/@CellularAutomaton[First[#],{{1},0},Last[#]],​​ColorRules->colors,Mesh->True,​​FrameStyle->Black,Frame->True​​]&/@#,​​Background->White,ImageSize->{100,100},ImagePadding->10],​​FrameStyle->Gray​​]&/@res["Evolution"][[1;;-1;;10]],BubbleChart[Catenate[MapIndexed[Flatten/@Thread[{#2[[1]],#}]&,​​List@@@#&/@Normal[Counts/@res["Evolution"][[All,All,2]]]]],AspectRatio->1/2]]}],{i,{4,13,36,39}}]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

In[]:=
ParallelTable[Module[{},SeedRandom[34645747+i];​​res=Module[{res},​​res=Reap[​​NestList[CompoundExpression[​​res=Reap[​​IteratePairCombine[#],{"Pairs","Next"}],​​Sow[Thread[res[[2,1,1,1]]->res[[2,2,1]]]],​​res[[1]]​​]&​​,​​InitialPool[3,1][10]​​,​​50]];​​Association[​​"Evolution"->res[[1]],​​"Transitions"->res[[2,1]]​​]​​​​];​​​​Prepend[Framed[ImageCollage[​​ArrayPlot[​​ArrayPad[#,1]&/@CellularAutomaton[First[#],{{1},0},Last[#]],​​ColorRules->colors,Mesh->True,​​FrameStyle->Black,Frame->True​​]&/@#,​​Background->White,ImageSize->{80,80},ImagePadding->10],​​FrameStyle->GrayLevel[.9]​​]&/@res["Evolution"][[1;;-1;;10]],BubbleChart[Catenate[MapIndexed[Flatten/@Thread[{#2[[1]],#}]&,​​List@@@#&/@Normal[Counts/@res["Evolution"][[All,All,2]]]]],AspectRatio->1/2]]],{i,{4,36}}]