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