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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A094603 a(n) is the length of the maximal sequence of rightmost black cells in the n-th row of Rule 30 (begun from an initial black cell). 5
1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 7, 1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 9, 1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 7, 1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 15, 1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 7, 1, 3, 1, 4, 1, 3, 1, 6, 1, 3, 1, 4, 1, 3, 1, 9, 1, 3, 1, 4, 1, 3, 1, 6, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

New numbers (A094604) in the sequence occur at positions 2^m.

REFERENCES

Wolfram, Stephen. A New Kind of Science, Wolfram Media, 2002.

LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Eric Rowland, Local nested structure in rule 30, Complex Systems 16 (2006) 239-258.

Eric Weisstein's World of Mathematics, Rule 30

Index entries for sequences related to cellular automata

EXAMPLE

From Michael De Vlieger, Oct 06 2015: (Start)

First 12 rows, replacing "0" with ".", ignoring "0" outside of range of 1's, for better visibility of ON cells, the number of contiguous rightmost black cells in each row appears at left:

1                          1

3                        1 1 1

1                      1 1 . . 1

4                    1 1 . 1 1 1 1

1                  1 1 . . 1 . . . 1

3                1 1 . 1 1 1 1 . 1 1 1

1              1 1 . . 1 . . . . 1 . . 1

6            1 1 . 1 1 1 1 . . 1 1 1 1 1 1

1          1 1 . . 1 . . . 1 1 1 . . . . . 1

3        1 1 . 1 1 1 1 . 1 1 . . 1 . . . 1 1 1

1      1 1 . . 1 . . . . 1 . 1 1 1 1 . 1 1 . . 1

4    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

rows = 105; ca = CellularAutomaton[30, {{1}, 0}, rows-1]; a[n_] := Length[ Last[ Split[ ca[[n, rows-n+1 ;; rows+n-1]]]]]; Table[ a[n], {n, 1, rows}] (* Jean-Fran├žois Alcover, Oct 11 2012 *)

Length /@ Map[Last, Split /@ CellularAutomaton[30, {{1}, 0}, 120] /. 0 -> Nothing /. {} -> Nothing] (* Michael De Vlieger, Oct 06 2015 *)

CROSSREFS

Cf. A007814, A094604.

Sequence in context: A116992 A233267 A090740 * A165595 A213181 A301848

Adjacent sequences:  A094600 A094601 A094602 * A094604 A094605 A094606

KEYWORD

easy,nice,nonn

AUTHOR

Eric Rowland, May 13 2004

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 21 13:37 EDT 2019. Contains 327253 sequences. (Running on oeis4.)