The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A273027 Number of active (ON,black) cells at stage 2^n-1 of the two-dimensional cellular automaton defined by "Rule 579", based on the 5-celled von Neumann neighborhood. 0
 1, 5, 29, 133, 577, 2569, 10897, 44129, 174953, 700665, 2806937, 11249229, 44962737, 179969505, 719921085, 2879889193 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Initialized with a single black (ON) cell at stage zero. REFERENCES S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 170. LINKS Table of n, a(n) for n=0..15. N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168 [math.CO], 2015 Eric Weisstein's World of Mathematics, Elementary Cellular Automaton S. Wolfram, A New Kind of Science Index entries for sequences related to cellular automata Index to 2D 5-Neighbor Cellular Automata Index to Elementary Cellular Automata MATHEMATICA CAStep[rule_, a_]:=Map[rule[[10-#]]&, ListConvolve[{{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}, a, 2], {2}]; code=579; stages=128; rule=IntegerDigits[code, 2, 10]; g=2*stages+1; (* Maximum size of grid *) a=PadLeft[{{1}}, {g, g}, 0, Floor[{g, g}/2]]; (* Initial ON cell on grid *) ca=a; ca=Table[ca=CAStep[rule, ca], {n, 1, stages+1}]; PrependTo[ca, a]; (* Trim full grid to reflect growth by one cell at each stage *) k=(Length[ca[[1]]]+1)/2; ca=Table[Table[Part[ca[[n]][[j]], Range[k+1-n, k-1+n]], {j, k+1-n, k-1+n}], {n, 1, k}]; on=Map[Function[Apply[Plus, Flatten[#1]]], ca] (* Count ON cells at each stage *) Part[on, 2^Range[0, Log[2, stages]]] (* Extract relevant terms *) CROSSREFS Cf. A273026. Sequence in context: A291889 A217325 A034332 * A268957 A146053 A163082 Adjacent sequences: A273024 A273025 A273026 * A273028 A273029 A273030 KEYWORD nonn,more AUTHOR Robert Price, May 13 2016 EXTENSIONS a(8)-a(15) from Lars Blomberg, Jul 12 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 28 19:55 EDT 2024. Contains 372919 sequences. (Running on oeis4.)