login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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

Robert Price, Table of n, a(n) for n = 0..9999

Michael De Vlieger, Visualization of rows 0 - 31 of Rule 94

Eric Weisstein's World of Mathematics, Rule 94

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton

S. Wolfram, A New Kind of Science

Index to Elementary Cellular Automata

Index entries for sequences related to cellular automata

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: A071031 A141679 A152904 * A089509 A157972 A124897

Adjacent sequences:  A118099 A118100 A118101 * A118103 A118104 A118105

KEYWORD

nonn,tabf

AUTHOR

Eric W. Weisstein, Apr 12 2006

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified March 22 22:17 EDT 2017. Contains 283901 sequences.