login
A265321
Total number of ON (black) cells after n iterations of the "Rule 110" elementary cellular automaton starting with a single ON (black) cell.
1
1, 3, 6, 9, 14, 17, 22, 28, 36, 41, 47, 55, 63, 71, 82, 93, 106, 115, 126, 137, 150, 164, 180, 194, 208, 221, 234, 251, 273, 293, 309, 326, 350, 369, 383, 402, 427, 445, 465, 490, 514, 533, 557, 588, 615, 641, 665, 687, 719, 750, 778, 802, 831, 865, 895, 926
OFFSET
0,2
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule = 110; 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. A075437.
Sequence in context: A310163 A310164 A267295 * A187263 A230876 A000791
KEYWORD
nonn,easy
AUTHOR
Robert Price, Dec 06 2015
STATUS
approved