A265246 Triangle read by rows giving successive states of cellular automaton generated by "Rule 149" initiated with a single ON (black) cell.

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

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

Triangle begins:
1;
0,1,1;
0,0,0,1,1;
0,1,1,0,0,1,1;
0,0,0,0,1,0,0,1,1;
...

Mathematica

rule = 149; 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. A226464.

Sequence in context: A068426 A267006 A280816 * A138709 A227998 A266514

Adjacent sequences: A265243 A265244 A265245 * A265247 A265248 A265249

Keyword

nonn,tabf,easy

Author

Robert Price, Dec 14 2015

Status

approved