|
%I #11 Feb 04 2015 16:08:50
%S 1,9,25,32,101,57,156,153,309,185,389,345,613,460,669,721,1120,961,
%T 965,1104,1337,1237,1500,1524,2136,1824,2232,2260,2640,2649,2736,3092,
%U 3689,3144,3688,3932,3937,4228,4488,5013,5112,5012,5748,5945,6440,6216,7073,7396,7932,7412,8201,8348,8696,9237
%N Total number of ON cells at stage 2n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 459".
%C The number of ON cells at stage 2n+1 is infinite.
%D S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H N. J. A. Sloane, <a href="/A246328/a246328.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[{ 459, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]] (* then take every other term *)
%t ArrayPlot /@ CellularAutomaton[{459, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y Cf. A169699, A246316, A246318, A246325, A246326, ...
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Aug 30 2014
|
