|
|
A253078
|
|
Total number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 470".
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
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
|
|
|
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]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|