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

Author

Hans Havermann, May 26 2002

Keywords

• nonn
• tabf

Comments

Row n has length 2n+1.

Examples

			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)
		

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

Crossrefs

For number of ON cells see A071044.

Programs

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 *)

Extensions

Corrected by Hans Havermann, Jan 07 2012