|
%I #14 Feb 04 2015 16:06:42
%S 1,5,4,20,9,37,28,57,29,72,72,145,97,165,157,233,141,249,205,289,269,
%T 433,428,504,337,488,448,709,561,705,708,980,733,896,892,924,876,1141,
%U 1136,1372,1232,1373,1216,1628,1513,1857,1637,1992,1684,2136,2089,2260,2168,2428,2505,2700,2508,2812,2649,2945,2900,3216,3328
%N Total number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 454".
%D S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H Vincenzo Librandi, <a href="/A246326/b246326.txt">Table of n, a(n) for n = 0..200</a>
%H N. J. A. Sloane, <a href="/A246326/a246326.pdf">Illustration of first 24 generations</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 454, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]]
%t ArrayPlot /@ CellularAutomaton[{454, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y Cf. A169699, A246316, A246318, A246325.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Aug 30 2014
|
