OFFSET
0,3
COMMENTS
More than the usual number of terms are shown in order to distinguish this from a closely related entry.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
LINKS
N. J. A. Sloane, Illustration of first generations 0 through 23
N. J. A. Sloane, Illustration of first generations 0 through 31
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168, 2015
MATHEMATICA
Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 200]] (* then subtract the odd-indexed terms from 201^2 *)
ArrayPlot /@ CellularAutomaton[{493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 30 2014
STATUS
approved