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

1, 5, 8, 24, 21, 56, 32, 89, 65, 140, 96, 201, 149, 260, 200, 297, 293, 376, 368, 453, 461, 564, 532, 685, 665, 804, 764, 929, 913, 1052, 1060, 1145, 1177, 1296, 1405, 1405, 1404, 1672, 1521, 1845, 1696, 2052, 1909, 2217, 2152, 2416, 2361, 2529, 2644, 2776, 2813, 3053, 2908, 3316, 3093, 3461, 3512, 3792, 3713, 4021

Offset: 0

Author

N. J. A. Sloane, Feb 04 2015

Keywords

• nonn

Comments

It would be nice to have a formula or recurrence.

References

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

Links

• Robert Price, Table of n, a(n) for n = 0..128
• N. J. A. Sloane, Illustration of generations 0-23
• Index entries for sequences related to cellular automata

Crossrefs

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

Programs

Mathematica

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