Wolfram Cloud Page

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]]];