|
%I #10 Feb 04 2015 16:06:16
%S 1,5,17,29,49,61,93,149,117,197,237,229,285,297,409,441,537,485,677,
%T 733,865,793,881,877,1097,1301,1233,1529,1461,1533,1633,1869,1881,
%U 2149,2185,2393,2677,2801,2681,2881,2921,3089,3193,3521,3561,4041,4137,3985,4161,4417,4433,4601,4865,4981,5041,5381,5917,5897,6209,6453,6337,6593,7293,7049,7493
%N Total number of ON cells at stage 2n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 453".
%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="/A246325/a246325.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[{ 453, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]] (* then take every other term *)
%t ArrayPlot /@ CellularAutomaton[{453, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
%Y Cf. A169699, A246316, A246318.
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Aug 30 2014
|
