login
A267148
Number of ON (black) cells in the n-th iteration of the "Rule 105" elementary cellular automaton starting with a single ON (black) cell.
1
1, 0, 3, 2, 3, 2, 5, 4, 3, 10, 9, 8, 5, 12, 11, 10, 3, 26, 9, 24, 9, 16, 15, 14, 5, 36, 15, 30, 11, 26, 21, 20, 3, 58, 9, 56, 9, 48, 15, 46, 9, 56, 27, 42, 15, 46, 33, 32, 5, 84, 15, 78, 15, 62, 25, 56, 11, 82, 33, 64, 21, 60, 43, 42, 3, 122, 9, 120, 9, 112
OFFSET
0,3
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule=105; 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 *) Table[Total[catri[[k]]], {k, 1, rows}] (* Number of Black cells in stage n *)
CROSSREFS
Cf. A267145.
Sequence in context: A092962 A258778 A112924 * A367682 A230406 A362688
KEYWORD
nonn,easy
AUTHOR
Robert Price, Jan 11 2016
STATUS
approved