[go: up one dir, main page]

login
A265695
Triangle read by rows giving successive states of cellular automaton generated by "Rule 135" initiated with a single ON (black) cell.
10
1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1
OFFSET
0
COMMENTS
Row n has length 2n+1.
Starting at row n=1 and shifting one cell to the right generates the complement of Rule 30.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
EXAMPLE
Triangle begins:
1;
1,1,0;
1,1,0,0,0;
1,1,0,0,1,1,0;
1,1,0,0,1,0,0,0,0;
...
MATHEMATICA
rule = 135; 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. A226463.
Sequence in context: A127243 A127248 A266298 * A116938 A105589 A359578
KEYWORD
nonn,tabf,easy
AUTHOR
Robert Price, Dec 13 2015
STATUS
approved