WOLFRAM NOTEBOOK

FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{40}],30]
Show[RasterGraphics[Take[MapIndexed[Join[#1,Table[0,#2]]&,FAEvolveList[ToFARule[28126,{3,2}],1,Table[0,{40}],30]],All,40]]];
cc30=CellularAutomaton[30,PadRight[{1},300],200];
Show[RasterGraphics[CellularAutomaton[30,{{1},0},100]]];
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.