cp's OEIS Frontend

A118174 Binary representation of n-th iteration of the Rule 188 elementary cellular automaton starting with a single black cell.

%I A118174 #24 Feb 16 2025 08:33:01
%S A118174 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 A118174 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 A118174 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 A118174 Binary representation of n-th iteration of the Rule 188 elementary cellular automaton starting with a single black cell.
%H A118174 Robert Price, <a href="/A118174/b118174.txt">Table of n, a(n) for n = 0..9999</a>
%H A118174 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Rule188.html">Rule 188</a>
%H A118174 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/ElementaryCellularAutomaton.html">Elementary Cellular Automaton</a>
%H A118174 S. Wolfram, <a href="http://wolframscience.com/">A New Kind of Science</a>
%H A118174 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%H A118174 <a href="https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata">Index to Elementary Cellular Automata</a>
%e A118174 Triangle starts:
%e A118174             1;
%e A118174          0, 1, 1;
%e A118174       0, 0, 1, 0, 1;
%e A118174    0, 0, 0, 1, 1, 1, 1;
%e A118174 0, 0, 0, 0, 1, 1, 1, 0, 1;
%e A118174 ...
%t A118174 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 A118174 Cf. A118173, decimal representation.
%Y A118174 Cf. A265428, total number of ON cells in n-th iteration.
%Y A118174 Cf. A265429, total number of ON cells after n iterations.
%Y A118174 Cf. A265430, total number of OFF cells in n-th iteration.
%Y A118174 Cf. A265431, total number of OFF cells after n iterations.
%K A118174 nonn,easy,tabf
%O A118174 0,1
%A A118174 _Eric W. Weisstein_, Apr 13 2006