login
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
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.
EXAMPLE
From Michael De Vlieger, Oct 08 2015: (Start)
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
Cf. A052928.
This sequence, A118101 and A071033 are equivalent descriptions of the Rule 94 automaton.
Sequence in context: A249865 A152904 A249133 * A089509 A157972 A124897
KEYWORD
nonn,tabf
AUTHOR
Eric W. Weisstein, Apr 12 2006
STATUS
approved