In[]:=
With[{data=CellularAutomaton[​​{#,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},​​{{{1,1},{1,1}},0},{{{127}}}]},​​ArrayPlot[data,Frame->None,PixelConstrained2]​​]&/@{41515,109500}
Out[]=

,

In[]:=
ArrayPlot3D[CellularAutomaton[​​{109500,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},​​{{{1,1},{1,1}},0},40]]
Out[]=
In[]:=
ArrayPlot3D[CellularAutomaton[​​{109500,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},​​{{{1,1},{1,1}},0},64]]
Out[]=
In[]:=
ArrayPlot[CellularAutomaton[​​{41515,{2,{{2,2,2},{2,1,2},{2,2,2}}},{1,1}},​​{{{1,1},{1,1}},0},{{{127}}}]]
Out[]=