A246316 Total number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 452".

1, 4, 5, 12, 8, 24, 25, 40, 33, 44, 40, 88, 77, 100, 121, 176, 137, 164, 141, 204, 217, 288, 309, 384, 353, 404, 401, 508, 513, 564, 601, 724, 701, 672, 729, 824, 849, 964, 981, 1168, 1129, 1124, 1113, 1268, 1341, 1424, 1497, 1644, 1625, 1664, 1653, 1856, 1869, 2016, 2037, 2256, 2221, 2316, 2329, 2548, 2589, 2924

Offset: 0

Author

N. J. A. Sloane, Aug 27 2014

Keywords

• nonn

Comments

Also "Rule 460".

Rules that produce this sequence: 324, 332, 356, 364, 452, 460, 484, 492, 836, 844, 868, 876, 964, 972, 996, 1004. - Robert Price, Apr 02 2016

References

• S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..300
• N. J. A. Sloane, Illustration of first 24 generations
• Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
• S. Wolfram, A New Kind of Science
• Index entries for sequences related to cellular automata
• Index to 2D 5-Neighbor Cellular Automata
• Index to Elementary Cellular Automata

Crossrefs

Cf. A169699, A246317.

Programs

Mathematica

Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 452, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]]
ArrayPlot /@ CellularAutomaton[{452, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]