A262448 Triangle read by rows giving successive states of cellular automaton generated by "Rule 73" initiated with a single black cell.

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

Offset

0

Comments

Row n has length 2n+1.

References

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

Links

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

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton

Index entries for sequences related to cellular automata

Index to Elementary Cellular Automata

Example

1; 0,0,0; 1,0,1,0,1; 0,0,0,0,0,0,0; 1,0,1,1,1,1,1,0,1; ...

Mathematica

rule = 73; rows = 20; Flatten[Table[Take[CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}][[k]], {rows - k + 1, rows + k - 1}], {k, 1, rows}]]

Crossrefs

Cf. A070950.

Sequence in context: A267636 A267841 A309850 * A068430 A141738 A267145

Adjacent sequences: A262445 A262446 A262447 * A262449 A262450 A262451

Keyword

nonn,tabf,easy

Author

Robert Price, Nov 28 2015

Status

approved