In[]:=
ArrayPlot@CellularAutomaton[{1453065918972,3,1},{{1},0},500]
Out[]=