A071029 Triangle read by rows giving successive states of cellular automaton generated by "Rule 22".

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

Offset

0,1

Comments

Row n has length 2n+1.

References

S. Wolfram, A New Kind of Science, Wolfram Media, 2002; Chapter 3.

Links

Michael De Vlieger, Table of n, a(n) for n = 0..10000

Michael De Vlieger, Illustration of first 256 generations

S. Wolfram, A New Kind of Science

Index to Elementary Cellular Automata

Index entries for sequences related to cellular automata

Example

From Michael De Vlieger, Oct 05 2015: (Start)
First 8 rows, replacing "0" with "." for better visibility of ON cells:
                1
              1 1 1
            1 . . . 1
          1 1 1 . 1 1 1
        1 . . . . . . . 1
      1 1 1 . . . . . 1 1 1
    1 . . . 1 . . . 1 . . . 1
  1 1 1 . 1 1 1 . 1 1 1 . 1 1 1
1 . . . . . . . . . . . . . . . 1
(End)

Mathematica

clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; clip /@ CellularAutomaton[22, {{1}, 0}, 9] // Flatten (* Michael De Vlieger, Oct 05 2015 *)

Crossrefs

For number of ON cells see A071044.

Sequence in context: A352677 A130630 A059318 * A071030 A355938 A268240

Adjacent sequences: A071026 A071027 A071028 * A071030 A071031 A071032

Keyword

nonn,tabf

Author

Hans Havermann, May 26 2002

Extensions

Corrected by Hans Havermann, Jan 07 2012

Status

approved