|
|
A118102
|
|
Triangle read by rows giving successive states of cellular automaton generated by "Rule 94" initiated with a single ON (black) cell.
|
|
5
|
|
|
1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
Totals for row k, starting with k = 0, are {1, 3, 4, 6, 6, 8, 8, 10, 10, 12, 12, ...}, i.e., {1, 3} followed by A052928(k + 3). - Michael De Vlieger, Oct 08 2015
|
|
REFERENCES
|
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Rule 94
|
|
EXAMPLE
|
First 12 rows, replacing "0" with ".", ignoring "0" outside of range of 1's for better visibility of ON cells:
1
1 1 1
1 1 . 1 1
1 1 1 . 1 1 1
1 1 . 1 . 1 . 1 1
1 1 1 . 1 . 1 . 1 1 1
1 1 . 1 . 1 . 1 . 1 . 1 1
1 1 1 . 1 . 1 . 1 . 1 . 1 1 1
1 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 1
1 1 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 1 1
1 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 1
1 1 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 1 1
1 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 . 1 1
(End)
|
|
MATHEMATICA
|
clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; FromDigits[#, 2] & /@ Map[clip, CellularAutomaton[94, {{1}, 0}, 24]] ; clip /@ CellularAutomaton[94, {{1}, 0}, 9] // Flatten (* Michael De Vlieger, Oct 08 2015 *)
|
|
CROSSREFS
|
This sequence, A118101 and A071033 are equivalent descriptions of the Rule 94 automaton.
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|