login
A266441
Triangle read by rows giving successive states of cellular automaton generated by "Rule 25" initiated with a single ON (black) cell.
11
1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1
OFFSET
0
COMMENTS
Row n has length 2n+1.
EXAMPLE
The first ten rows:
1
0 0 1
0 1 0 1 0
1 0 0 0 0 1 1
0 0 1 1 1 0 1 0 0
1 1 0 1 0 0 0 0 1 1 1
0 0 0 0 0 1 1 1 0 1 0 0 0
1 1 1 1 1 0 1 0 0 0 0 1 1 1 1
0 0 0 0 0 0 0 0 1 1 1 0 1 0 0 0 0
1 1 1 1 1 1 1 1 0 1 0 0 0 0 1 1 1 1 1
MATHEMATICA
rule=25; 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
Cf. A266442, A266443, A266837 (rows reversed).
Sequence in context: A288375 A121559 A004641 * A266672 A266070 A262855
KEYWORD
nonn,tabf,easy
AUTHOR
Robert Price, Dec 29 2015
STATUS
approved