|
|
A265702
|
|
Total number of ON (black) cells after n iterations of the "Rule 135" elementary cellular automaton starting with a single ON (black) cell.
|
|
1
|
|
|
1, 3, 5, 9, 12, 19, 23, 33, 38, 50, 59, 71, 82, 97, 107, 125, 136, 156, 174, 193, 210, 232, 254, 278, 299, 324, 350, 379, 403, 432, 459, 491, 517, 558, 588, 630, 657, 700, 733, 774, 810, 846, 890, 932, 972, 1025, 1063, 1116, 1162, 1217, 1265, 1325, 1371
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
REFERENCES
|
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
|
|
LINKS
|
|
|
MATHEMATICA
|
rule = 135; 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
|
|
|
|