The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Please make a donation to keep the OEIS running. We are now in our 56th year. In the past year we added 10000 new sequences and reached almost 9000 citations (which often say "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A270935 Number of active (ON,black) cells at stage 2^n-1 of the two-dimensional cellular automaton defined by "Rule 221", based on the 5-celled von Neumann neighborhood. 0
 1, 8, 44, 220, 956, 3964, 16124, 65020, 261116, 1046524, 4190204, 16769020, 67092476, 268402684, 1073676284, 4294836220 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 COMMENTS Initialized with a single black (ON) cell at stage zero. Conjecture: Rule 253 also generates this sequence. - Lars Blomberg, Jun 06 2016 REFERENCES S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 170. LINKS 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 FORMULA Conjecture: a(n) = 4*4^n - 4*2^n - 4, n>1. - Lars Blomberg, Jun 06 2016 Conjectures from Colin Barker, Jun 07 2016: (Start) a(n) = 7*a(n-1)-14*a(n-2)+8*a(n-3) for n>4. G.f.: (1+x+2*x^2+16*x^3-32*x^4) / ((1-x)*(1-2*x)*(1-4*x)). (End) MATHEMATICA CAStep[rule_, a_]:=Map[rule[[10-#]]&, ListConvolve[{{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}, a, 2], {2}]; code=221; 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. A270934, A269907. Sequence in context: A000373 A176688 A272154 * A197213 A198768 A082762 Adjacent sequences:  A270932 A270933 A270934 * A270936 A270937 A270938 KEYWORD nonn,more AUTHOR Robert Price, Mar 26 2016 EXTENSIONS a(8)-a(15) from Lars Blomberg, Jun 06 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 2 23:36 EST 2020. Contains 338898 sequences. (Running on oeis4.)