A246333 a(n) = if n is even, number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 493" or if n is odd, number of OFF cells.

1, 1, 5, 5, 17, 9, 29, 21, 61, 25, 73, 37, 109, 57, 157, 85, 229, 89, 241, 101, 277, 121, 329, 165, 429, 169, 477, 213, 573, 217, 633, 317, 861, 321, 873, 333, 909, 353, 961, 397, 1061, 401, 1113, 461, 1237, 481, 1353, 637, 1645, 593, 1661, 733, 1893, 689, 1969, 877, 2325, 801, 2321, 981, 2669, 921, 2693, 1157, 3245, 1185, 3305, 1197, 3341, 1217, 3393, 1261, 3493

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

Table of n, a(n) for n=0..72.

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

Index entries for sequences related to cellular automata

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

Bisections: A246334, A246335.

Cf. A169699, A246316, A246318, A246325, A246326, ...

Sequence in context: A273421 A273758 A273835 * A079317 A273482 A273792

Adjacent sequences: A246330 A246331 A246332 * A246334 A246335 A246336

Keyword

nonn

Author

N. J. A. Sloane, Aug 30 2014

Status

approved