login
A265702
Total number of ON (black) cells after n iterations of the "Rule 135" elementary cellular automaton starting with a single ON (black) cell.
1
1, 3, 5, 9, 12, 19, 23, 33, 38, 50, 59, 71, 82, 97, 107, 125, 136, 156, 174, 193, 210, 232, 254, 278, 299, 324, 350, 379, 403, 432, 459, 491, 517, 558, 588, 630, 657, 700, 733, 774, 810, 846, 890, 932, 972, 1025, 1063, 1116, 1162, 1217, 1265, 1325, 1371
OFFSET
0,2
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule = 135; rows = 30; Table[Total[Take[Table[Total[Table[Take[CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}][[k]], {rows-k+1, rows+k-1}], {k, 1, rows}][[k]]], {k, 1, rows}], k]], {k, 1, rows}]
CROSSREFS
Cf. A265695.
Sequence in context: A211538 A368613 A247799 * A190310 A046746 A344715
KEYWORD
nonn,easy
AUTHOR
Robert Price, Dec 13 2015
STATUS
approved