WOLFRAM NOTEBOOK

Grid[Partition[ArrayPlot[CellularAutomaton[{#,{4,1}},{{1},0},{400,50{-1,1}}],PixelConstrained{1,1},ColorRules{0RGBColor[1,0.87,0.28],1RGBColor[1,0.45,0],2RGBColor[0.11,0.27,0.74],3RGBColor[0,0.8,1]}]&/@{996772,895177,771502,942851,504876,930520,290177,178737,162904,733138,844381,1018787},6]]
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.