login
A267516
Number of ON (black) cells in the n-th iteration of the "Rule 137" elementary cellular automaton starting with a single ON (black) cell.
1
1, 0, 2, 2, 6, 6, 7, 7, 12, 13, 13, 15, 17, 16, 18, 18, 24, 24, 26, 26, 27, 27, 31, 33, 36, 38, 36, 33, 37, 43, 44, 39, 46, 53, 50, 46, 55, 55, 52, 55, 62, 59, 54, 60, 63, 67, 71, 63, 66, 71, 77, 74, 71, 77, 78, 74, 79, 81, 81, 84, 87, 88, 89, 84, 89, 95, 95
OFFSET
0,3
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule=137; 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. A267463.
Sequence in context: A178801 A130493 A354638 * A163118 A319010 A010762
KEYWORD
nonn,easy
AUTHOR
Robert Price, Jan 16 2016
STATUS
approved