In[]:=
SeedRandom[25345];Table[ArrayPlot[CellularAutomaton[{RandomInteger[1220703124],{5,1}},RandomInteger[4,300],200]],10]
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
SeedRandom[25345]
Out[]=
RandomGeneratorState
Method: ExtendedCA
State hash: 6452446081885675180

In[]:=
RandomInteger[1220703124]
Out[]=
1092923130
In[]:=
Table[ArrayPlot[CellularAutomaton[{1092923130,{5,1}},RandomInteger[4,300],200]],10]
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
RulePlot[CellularAutomaton[{1092923130,{5,1}}]]
Out[]=
In[]:=
IntegerDigits[1092923130,5]
Out[]=
{4,2,1,4,2,4,2,0,2,0,0,1,0}
In[]:=
Length[%]
Out[]=
13
In[]:=
Table[ArrayPlot[CellularAutomaton[{FromDigits[ReplacePart[IntegerDigits[1092923130,5],RandomInteger[{1,13}]->RandomInteger[4]],5],{5,1}},RandomInteger[4,300],200]],10]
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
Table[ArrayPlot[CellularAutomaton[{FromDigits[ReplacePart[IntegerDigits[1092923130,5],RandomInteger[{1,13}]->RandomInteger[4]],5],{5,1}},RandomInteger[4,300],200]],50]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
