In[]:=
ArrayPlot[CellularAutomaton[{20,{2,1},2},RandomInteger[1,500],500]]
Out[]=
In[]:=
ArrayPlot[CellularAutomaton[{357,{3,1},1},RandomInteger[1,500],500]]
Out[]=
In[]:=
ArrayPlot[CellularAutomaton[{1329,{3,1},1},RandomInteger[1,500],500]]
Out[]=
https://community.wolfram.com/groups/-/m/t/3210464
In[]:=
ResourceData["Persistent Structures in the Code 357 Cellular Automaton"]
Out[]=
Number
Period
Shift
Cells
28
48
0
{1,0,0,1}
7795
19
0
{
…
9
}
1706588
26
0
{
…
14
}
4803890
41
1
{
…
15
}
154596664
12
0
{
…
18
}
514454827
48
0
{
…
19
}
In[]:=
Join[{1,0,0,1},Table[0,5],RandomInteger[2,20],Table[0,5],{1,0,0,1}]
Out[]=
{1,0,0,1,0,0,0,0,0,2,1,1,0,0,0,1,2,0,0,2,2,1,0,1,0,0,2,1,0,0,0,0,0,0,1,0,0,1}
In[]:=
SeedRandom[234235235];ArrayPlot[CellularAutomaton[{357,{3,1},1},{Join[{1,0,0,1},Table[0,5],RandomInteger[2,20],Table[0,5],{1,0,0,1}],0},500]]
Out[]=