A265280 Binary representation of the n-th iteration of the "Rule 86" elementary cellular automaton starting with a single ON (black) cell.
1, 111, 10011, 1111011, 100010011, 11101111011, 1001000010011, 111111001111011, 10000011100010011, 1110001001101111011, 100110111101000010011, 11110100001011001111011, 1000101100110011100010011, 111011001110111001101111011, 10010011100100011101000010011
Offset: 0
References
- S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
Links
- Robert Price, Table of n, a(n) for n = 0..999
- Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
- Index entries for sequences related to cellular automata
- Index to Elementary Cellular Automata
Crossrefs
Cf. A071032.
Programs
-
Mathematica
rule = 86; 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}]