[go: up one dir, main page]

login
A265205
Number of ON (black) cells in the n-th iteration of the "Rule 73" elementary cellular automaton starting with a single ON (black) cell.
4
1, 0, 3, 0, 7, 2, 5, 2, 9, 6, 5, 10, 13, 6, 11, 10, 15, 10, 19, 10, 23, 10, 17, 20, 19, 16, 25, 18, 19, 20, 25, 14, 37, 20, 27, 26, 35, 20, 37, 30, 41, 24, 33, 36, 39, 26, 45, 36, 37, 38, 41, 36, 49, 44, 29, 56, 39, 40, 57, 40, 43, 60, 39, 48, 55, 44, 45, 64
OFFSET
0,3
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule = 73; rows = 30; 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}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert Price, Dec 04 2015
STATUS
approved