A266434 Triangle read by rows giving successive states of cellular automaton generated by "Rule 23" initiated with a single ON (black) cell.

1, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1

Offset

0

Comments

Row n has length 2n+1.

This sequence is also generated by Rules 31, 55, 63, 87, 95, 119 and 127.

Links

Robert Price, Table of n, a(n) for n = 0..10000

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton

Stephen Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Index entries for sequences related to cellular automata

Index to Elementary Cellular Automata

Example

The first ten rows:
                  1
                1 1 1
              0 0 0 0 0
            1 1 1 1 1 1 1
          0 0 0 0 0 0 0 0 0
        1 1 1 1 1 1 1 1 1 1 1
      0 0 0 0 0 0 0 0 0 0 0 0 0
    1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

Mathematica

rule=23; rows=20; ca=CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]], {rows-k+1, rows+k-1}], {k, 1, rows}]; (* Truncated list of each row *) Flatten[catri] (* Triangle Representation of CA *)

Crossrefs

Cf. A266435, A266436.

Sequence in context: A267871 A329678 A359942 * A025447 A131078 A302203

Adjacent sequences: A266431 A266432 A266433 * A266435 A266436 A266437

Keyword

nonn,tabf,easy

Author

Robert Price, Dec 29 2015

Status

approved