|
%I #17 Feb 21 2016 20:13:46
%S 1,111,10101,1101011,100010001,11101110111,1010001000101,
%T 110110111011011,10000000100000001,1110000011100000111,
%U 101010001010100010101,11010110110101101101011,1000100000001000000010001
%N State of one-dimensional cellular automaton 'sigma' (Rule 150): 000,001,010,011,100,101,110,111 -> 0,1,1,0,1,0,0,1 at generation n, when started with a single ON cell, regarded as a binary number.
%C See A038184 for decimal equivalents.
%D S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Rule150.html">Rule 150</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="https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata">Index to Elementary Cellular Automata</a>
%H <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t rule = 150; rows = 20; Table[FromDigits[Table[Take[CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}][[k]], {rows-k+1, rows+k-1}], {k, 1, rows}][[k]]], {k, 1, rows}] (* _Robert Price_, Feb 21 2016 *)
%Y This sequence, A038184 and A071036 are equivalent descriptions of the Rule 150 automaton.
%Y See A071053 for number of ON cells.
%K nonn
%O 0,2
%A _Eric W. Weisstein_, Apr 13 2006 and _N. J. A. Sloane_, Jul 28 2014, combined into one entry by _N. J. A. Sloane_, Oct 20 2015
|
