|
|
A265206
|
|
Total number of ON cells after n iterations of the "Rule 73" elementary cellular automaton starting with a single ON 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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
REFERENCES
|
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|