A071038 Triangle read by rows giving successive states of cellular automaton generated by "Rule 182".

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

Offset: 0

Author

Hans Havermann, May 26 2002

Keywords

• nonn
• tabf

Comments

Row n has length 2n+1.

Examples

			Triangle begins:
                           1,
                        1, 1, 1,
                     1, 0, 1, 0, 1,
                  1, 1, 1, 1, 1, 1, 1,
               1, 0, 1, 1, 1, 1, 1, 0, 1,
            1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1,
         1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
   1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1,
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 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..9999, i.e., rows 0 - 99.
• Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
• S. Wolfram, Statistical mechanics of cellular automata, Rev. Mod. Phys., 55 (1983), 601--644.
• S. Wolfram, A New Kind of Science
• Index to Elementary Cellular Automata
• Index entries for sequences related to cellular automata

Crossrefs

See A071042 for number of zeros at generation n.

Programs

Mathematica

Flatten@ Table[CellularAutomaton[182, {{1}, 0}, {{i}}], {i, 0, 9}] (* Michael De Vlieger, Mar 02 2015, based on N. J. A. Sloane at A071042 *)

Extensions

Corrected by Hans Havermann, Jan 07 2012