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,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..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

Example

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,
...

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

Crossrefs

See A071042 for number of zeros at generation n.

Sequence in context: A140653 A342892 A071036 * A131522 A221641 A144473

Adjacent sequences: A071035 A071036 A071037 * A071039 A071040 A071041

Keyword

nonn,tabf

Author

Hans Havermann, May 26 2002

Extensions

Corrected by Hans Havermann, Jan 07 2012

Status

approved