[go: up one dir, main page]

login
A265206
Total number of ON (black) cells after n iterations of the "Rule 73" elementary cellular automaton starting with a single ON (black) cell.
3
1, 1, 4, 4, 11, 13, 18, 20, 29, 35, 40, 50, 63, 69, 80, 90, 105, 115, 134, 144, 167, 177, 194, 214, 233, 249, 274, 292, 311, 331, 356, 370, 407, 427, 454, 480, 515, 535, 572, 602, 643, 667, 700, 736, 775, 801, 846, 882, 919, 957, 998, 1034, 1083, 1127, 1156
OFFSET
0,3
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
MATHEMATICA
rule = 73; 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
KEYWORD
nonn,easy
AUTHOR
Robert Price, Dec 04 2015
STATUS
approved