|
%I #21 Jan 31 2016 18:57:40
%S 1,0,1,1,0,0,1,0,1,0,0,0,1,1,1,1,0,0,0,0,1,1,1,0,1,0,0,0,0,0,1,1,0,1,
%T 1,1,0,0,0,0,0,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,1,1,1,1,0,1,1,1,0,0,0,0,
%U 0,0,0,0,1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0
%N Binary representation of n-th iteration of the Rule 188 elementary cellular automaton starting with a single black cell.
%H Robert Price, <a href="/A118174/b118174.txt">Table of n, a(n) for n = 0..9999</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Rule188.html">Rule 188</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/ElementaryCellularAutomaton.html">Elementary Cellular Automaton</a>
%H S. Wolfram, <a href="http://wolframscience.com/">A New Kind of Science</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%H <a href="https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata">Index to Elementary Cellular Automata</a>
%e Triangle starts:
%e 1;
%e 0, 1, 1;
%e 0, 0, 1, 0, 1;
%e 0, 0, 0, 1, 1, 1, 1;
%e 0, 0, 0, 0, 1, 1, 1, 0, 1;
%e ...
%t lim = 10; a = {}; Do[AppendTo[a, Table[0, k - 1]~Join~Take[#[[k]], k]], {k, Length@ #}] &@ CellularAutomaton[188, {{1}, 0}, lim]; Flatten@ a (* _Michael De Vlieger_, Dec 09 2015 *)
%Y Cf. A118173, decimal representation.
%Y Cf. A265428, total number of ON cells in n-th iteration.
%Y Cf. A265429, total number of ON cells after n iterations.
%Y Cf. A265430, total number of OFF cells in n-th iteration.
%Y Cf. A265431, total number of OFF cells after n iterations.
%K nonn,easy,tabf
%O 0,1
%A _Eric W. Weisstein_, Apr 13 2006
|
