login
A266786
Triangle read by rows giving successive states of cellular automaton generated by "Rule 61" initiated with a single ON (black) cell.
10
1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0
OFFSET
0
COMMENTS
Row n has length 2n+1.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
EXAMPLE
The first ten rows:
1
0 1 1
0 1 1 0 0
1 0 1 0 1 1 1
0 0 1 1 1 1 0 0 0
1 1 0 1 0 0 0 1 1 1 1
0 0 0 1 1 1 1 0 1 0 0 0 0
1 1 1 0 1 0 0 0 1 1 1 1 1 1 1
0 0 0 0 1 1 1 1 0 1 0 0 0 0 0 0 0
1 1 1 1 0 1 0 0 0 1 1 1 1 1 1 1 1 1 1
MATHEMATICA
rule=61; rows=20; ca=CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]], {rows-k+1, rows+k-1}], {k, 1, rows}]; (* Truncated list of each row *) Flatten[catri] (* Triangle Representation of CA *)
CROSSREFS
Sequence in context: A373550 A319843 A309847 * A272532 A166946 A144612
KEYWORD
nonn,tabf,easy
AUTHOR
Robert Price, Jan 03 2016
STATUS
approved