Yes, that's a good way too. You can't go wrong with powers of two.
Thanks! I got it this way:
CellularAutomaton[{10710, {2, {{0, 8, 0}, {4, 2, 1}}}, 1, 2}, {{{1}, {1}}, 0}, 31]
Todd, how would CellularAutomaton be set up to do rule 214 on NKS 437 ?
Nice!
n=10; array=Transpose[CellularAutomaton[{588,{3,{{1,0},{1,1}}},1/2,2},PadLeft[{{1}},{2,2^n},0,{0,2^n-1}],2^n-2]]; new=Table[RotateLeft[array[[n]],n-1],{n,1,Length[array]}]; ArrayPlot[Transpose[new], PixelConstrained->1, Frame-> False]
420 -- 3 colors
