|
%I #13 Apr 29 2016 10:43:02
%S 1,5,8,24,21,56,32,89,65,140,96,201,149,260,200,297,293,376,368,453,
%T 461,564,532,685,665,804,764,929,913,1052,1060,1145,1177,1296,1405,
%U 1405,1404,1672,1521,1845,1696,2052,1909,2217,2152,2416,2361,2529,2644,2776,2813,3053,2908,3316,3093,3461,3512,3792,3713,4021
%N Total number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 470".
%C It would be nice to have a formula or recurrence.
%D S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
%H Robert Price, <a href="/A253078/b253078.txt">Table of n, a(n) for n = 0..128</a>
%H N. J. A. Sloane, <a href="/A253078/a253078.png">Illustration of generations 0-23</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 470, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]]
%t ArrayPlot /@ CellularAutomaton[{470, {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_, Feb 04 2015
|
