|
%I #27 Apr 03 2016 03:29:33
%S 1,4,5,12,8,24,25,40,33,44,40,88,77,100,121,176,137,164,141,204,217,
%T 288,309,384,353,404,401,508,513,564,601,724,701,672,729,824,849,964,
%U 981,1168,1129,1124,1113,1268,1341,1424,1497,1644,1625,1664,1653,1856,1869,2016,2037,2256,2221,2316,2329,2548,2589,2924
%N Total number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 452".
%C Also "Rule 460".
%C 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
%D S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H Vincenzo Librandi, <a href="/A246316/b246316.txt">Table of n, a(n) for n = 0..300</a>
%H N. J. A. Sloane, <a href="/A246316/a246316.pdf">Illustration of first 24 generations</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ElementaryCellularAutomaton.html">Elementary Cellular Automaton</a>
%H S. Wolfram, <a href="http://wolframscience.com/">A New Kind of Science</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%H <a href="https://oeis.org/wiki/Index_to_2D_5-Neighbor_Cellular_Automata">Index to 2D 5-Neighbor Cellular Automata</a>
%H <a href="https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata">Index to Elementary Cellular Automata</a>
%t Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 452, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]]
%t ArrayPlot /@ CellularAutomaton[{452, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y Cf. A169699, A246317.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Aug 27 2014
|
