In[]:=
getResults[n_,col_:5]:=Module[{res=Association[],code,data},While[Length[res]<n,code=RandomInteger[col^(col^3)-1];​​data=CellularAutomaton[{code,col,1},RandomInteger[col-1,100],100];​​If[Apply[SameQ,data[[-3;;-1]]],res[code]=data];];​​KeyValueMap[ClickToCopy[ArrayPlot[#2,ColorRules->Map[#->Hue[#/col]&,Range[0,col-1]]],#1]&,res]]
In[]:=
getResults[10,4]
Out[]=

,
,
,
,
,
,
,
,
,

295210225696251654935732247247929185113
In[]:=
getResults[10,4]
Out[]=

,
,
,
,
,
,
,
,
,

116997766029332200968053457556760950128
In[]:=
SeedRandom[3253534];GraphicsRow[Table[ArrayPlot[CellularAutomaton[{295210225696251654935732247247929185113,4,1},RandomInteger[3,100],80],ColorRules{0Yellow,1Red,2Purple,3Green,4White}],{n,3}]]
Out[]=
In[]:=
SeedRandom[3254];GraphicsGrid[Partition[Table[With[{init0=(BlockRandom[SeedRandom[3253534];RandomInteger[3,100]])},ArrayPlot[CellularAutomaton[{FromDigits[MapAt[RandomChoice[Complement[Range[0,3],{#}]]&,IntegerDigits[295210225696251654935732247247929185113,4],RandomInteger[{1,64}]],4],4,1},init0,80],ColorRules{0Yellow,1Red,2Purple,3Green,4White}]],15],UpTo[5]]]
Out[]=
In[]:=
twiddle1[rn_]:=FromDigits[MapAt[RandomChoice[Complement[Range[0,3],{#}]]&,IntegerDigits[rn,4],RandomInteger[{1,64}]],4]
In[]:=
SeedRandom[3254];GraphicsGrid[Partition[With[{init0=(BlockRandom[SeedRandom[3253534];RandomInteger[3,100]])},ArrayPlot[CellularAutomaton[{#,4,1},init0,80],ColorRules{0Yellow,1Red,2Purple,3Green,4White}]]&/@NestList[twiddle1,295210225696251654935732247247929185113,14],UpTo[5]]]
Out[]=
In[]:=
SeedRandom[3255];GraphicsGrid[Partition[With[{init0=(BlockRandom[SeedRandom[3253534];RandomInteger[3,100]])},ArrayPlot[CellularAutomaton[{#,4,1},init0,80],ColorRules{0Yellow,1Red,2Purple,3Green,4White}]]&/@NestList[twiddle1,295210225696251654935732247247929185113,14],UpTo[5]]]
Out[]=