A118108 -id:A118108 - cp's OEIS frontend

A071030 Triangle read by rows giving successive states of cellular automaton generated by "Rule 54".

1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1

Offset: 0

Hans Havermann, May 26 2002

Row n has length 2n+1.

Even rows r sum to r/2 + 1, odd rows r sum to 3r to produce the sequence {1, 3, 2, 6, 3, 9, 4, 12, ...} = A064455(n + 1). - Michael De Vlieger, Oct 07 2015

			From _Michael De Vlieger_, Oct 07 2015: (Start)
First 12 rows, replacing "0" with "." 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
(End)

S. Wolfram, A New Kind of Science, Wolfram Media, 2002; Chapter 3.

Michael De Vlieger, Table of n, a(n) for n = 0..10000
Michael De Vlieger, Visualization of rows 0 - 31 of Rule 54
S. Wolfram, Statistical mechanics of cellular automata, Rev. Mod. Phys., 55 (1983), 601--644.
S. Wolfram, A New Kind of Science
Index to Elementary Cellular Automata
Index entries for sequences related to cellular automata

Cf. A064455. See A118108 and A118109 for two other versions of this sequence.

clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; clip /@ CellularAutomaton[54, {{1}, 0}, 8] // Flatten (* Michael De Vlieger, Oct 07 2015 *)

Corrected by Hans Havermann, Jan 07 2012

A265225 Total number of ON (black) cells after n iterations of the "Rule 54" elementary cellular automaton starting with a single ON (black) cell.

Original entry on oeis.org

1, 4, 6, 12, 15, 24, 28, 40, 45, 60, 66, 84, 91, 112, 120, 144, 153, 180, 190, 220, 231, 264, 276, 312, 325, 364, 378, 420, 435, 480, 496, 544, 561, 612, 630, 684, 703, 760, 780, 840, 861, 924, 946, 1012, 1035, 1104, 1128, 1200, 1225, 1300, 1326, 1404, 1431

Offset: 0

Robert Price, Dec 05 2015

Take the first 2n positive integers and choose n of them such that their sum: a) is divisible by n, and b) is minimal. It seems their sum equals a(n). - Ivan N. Ianakiev, Feb 16 2019

			From _Michael De Vlieger_, Dec 14 2015: (Start)
First 12 rows, replacing "0" with "." for better visibility of ON cells, followed by the total number of 1's per row, and the running total up to that row:
                        1                          =  1 ->  1
                      1 1 1                        =  3 ->  4
                    1 . . . 1                      =  2 ->  6
                  1 1 1 . 1 1 1                    =  6 -> 12
                1 . . . 1 . . . 1                  =  3 -> 15
              1 1 1 . 1 1 1 . 1 1 1                =  9 -> 24
            1 . . . 1 . . . 1 . . . 1              =  4 -> 28
          1 1 1 . 1 1 1 . 1 1 1 . 1 1 1            = 12 -> 40
        1 . . . 1 . . . 1 . . . 1 . . . 1          =  5 -> 45
      1 1 1 . 1 1 1 . 1 1 1 . 1 1 1 . 1 1 1        = 15 -> 60
    1 . . . 1 . . . 1 . . . 1 . . . 1 . . . 1      =  6 -> 66
  1 1 1 . 1 1 1 . 1 1 1 . 1 1 1 . 1 1 1 . 1 1 1    = 18 -> 84
1 . . . 1 . . . 1 . . . 1 . . . 1 . . . 1 . . . 1  =  7 -> 91
(End)

S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Robert Price, Table of n, a(n) for n = 0..999
Emanuele Munarini, Topological indices for the antiregular graphs, Le Mathematiche (2021) Vol. 76, No. 1, see p. 301.
Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
Index entries for sequences related to cellular automata
Index to Elementary Cellular Automata

Cf. A071030, A118108, A118109, A133872.

A265225:=n->1/4*(n+1)*(2*n-(-1)^n+5): seq(A265225(n), n=0..60); # Wesley Ivan Hurt, Dec 25 2016

rule = 54; 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}]
Accumulate[Total /@ CellularAutomaton[54, {{1}, 0}, 52]]

Conjectures from Colin Barker, Dec 08 2015 and Apr 20 2019: (Start)
a(n) = (n+1)*(2*n -(-1)^n +5)/4.
a(n) = a(n-1) + 2*a(n-2) - 2*a(n-3) - a(n-4) + a(n-5) for n>4.
G.f.: (1+3*x) / ((1-x)^3*(1+x)^2).
(End)
a(n) = n + 1 + (n+1) * floor((n+1)/2), conjectured. - Wesley Ivan Hurt, Dec 25 2016
a(n) = A093353(n) + n + 1, conjectured. - Matej Veselovac, Jan 21 2020

A118109 Binary representation of n-th iteration of the Rule 54 elementary cellular automaton starting with a single black cell.

Original entry on oeis.org

1, 111, 10001, 1110111, 100010001, 11101110111, 1000100010001, 111011101110111, 10001000100010001, 1110111011101110111, 100010001000100010001, 11101110111011101110111, 1000100010001000100010001, 111011101110111011101110111, 10001000100010001000100010001, 1110111011101110111011101110111

Offset: 0

Eric W. Weisstein, Apr 13 2006

			From _Michael De Vlieger_, Oct 07 2015: (Start)
First 8 rows, representing ON cells as "1", OFF cells within the bounds of ON cells as "0", interpreted as a binary number at left, the decimal equivalent appearing at right (A118108):
                   1 =     1
                 111 =     7
              1 0001 =    17
            111 0111 =   119
         1 0001 0001 =   273
       111 0111 0111 =  1911
    1 0001 0001 0001 =  4369
  111 0111 0111 0111 = 30583
10001 0001 0001 0001 = 69905
(End)

Robert Price, Table of n, a(n) for n = 0..499
Eric Weisstein's World of Mathematics, Rule 54
Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
Stephen Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
Index entries for sequences related to cellular automata
Index to Elementary Cellular Automata

Cf. A071030 (essentially the same but lists bits separately), A118108 (converted to base 10).

rule=54; rows=20; ca=CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]], {rows-k+1, rows+k-1}], {k, 1, rows}]; (* Truncated list of each row *) Table[FromDigits[catri[[k]]], {k, 1, rows}] (* Binary Representation of Rows *) (* Robert Price, Feb 21 2016 *)

Conjectures from Colin Barker, Dec 08 2015 and Apr 16 2019: (Start)
a(n) = 10001*a(n-2)-10000*a(n-4) for n>3.
G.f.: (1+111*x) / ((1-x)*(1+x)*(1-100*x)*(1+100*x)).
(End)
Conjecture: a(n) = floor((10000+1100*(n mod 2))*100^n/9999). - Karl V. Keller, Jr., Sep 24 2021

Terms changed to match definition, as suggested by Michael De Vlieger. - N. J. A. Sloane, Oct 17 2015

A259661 Binary representation of the middle column of the "Rule 54" elementary cellular automaton starting with a single ON (black) cell.

Original entry on oeis.org

1, 11, 110, 1100, 11001, 110011, 1100110, 11001100, 110011001, 1100110011, 11001100110, 110011001100, 1100110011001, 11001100110011, 110011001100110, 1100110011001100, 11001100110011001, 110011001100110011, 1100110011001100110, 11001100110011001100

Offset: 0

Robert Price, Dec 05 2015

			From _Michael De Vlieger_, Dec 09 2015: (Start)
First 8 rows at left, ignoring "0" outside of range of 1's, the center column values in parentheses, and at right the value of center column cells up to that row:
                (1)                 -> 1
              1 (1) 1               -> 11
            1 0 (0) 0 1             -> 110
          1 1 1 (0) 1 1 1           -> 1100
        1 0 0 0 (1) 0 0 0 1         -> 11001
      1 1 1 0 1 (1) 1 0 1 1 1       -> 110011
    1 0 0 0 1 0 (0) 0 1 0 0 0 1     -> 1100110
  1 1 1 0 1 1 1 (0) 1 1 1 0 1 1 1   -> 11001100
1 0 0 0 1 0 0 0 (1) 0 0 0 1 0 0 0 1 -> 110011001
(End)

Robert Price, Table of n, a(n) for n = 0..999
Eric Weisstein's World of Mathematics, Rule 54
Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
Stephen Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.
Index entries for sequences related to cellular automata
Index to Elementary Cellular Automata

Cf. A071030, A118109, A118108, A133872, A077854.

lim = 20; Take[Last@ Take[#, Ceiling[Length[#]/2]] & /@ CellularAutomaton[54, {{1}, 0}, lim], #] & /@ Range@ lim (* Michael De Vlieger, Dec 09 2015 *)

Conjectures from Colin Barker, Dec 08 2015 and Apr 17 2019: (Start)
a(n) = 11*a(n-1) - 11*a(n-2) + 11*a(n-3) - 10*a(n-4) for n>3.
G.f.: 1 / ((1-x)*(1-10*x)*(1+x^2)).
(End)

A204714 Maximum period of cellular automaton rule 54 in a cyclic universe of width n.

Original entry on oeis.org

1, 1, 1, 4, 1, 4, 4, 8, 27, 30, 99, 12, 169, 112, 330, 40, 289, 306, 494, 86, 399, 484, 690, 312, 1800, 624, 918, 224, 783, 780, 1240, 608, 1056, 952, 1540, 684

Offset: 1

Ben Branman, Jan 18 2012

nonn

			For n=8, the initial condition 00011101 yields the evolution
00011101
10100011
01110100
10001110
11010001
00111010
01000111
11101000
00011101
Which is period 8, the maximum possible, so a(8)=8.

Index entries for sequences related to cellular automata
Eric Weisstein's World of Mathematics, Rule 54

Cf. A071030, A118108

f[list_] := -Subtract @@ Flatten[Map[Position[#, #[[-1]]] &, NestWhileList[CellularAutomaton[54], list, Unequal, All], {0}]]; a[n_] := Max[Table[f[IntegerDigits[i, 2, n]], {i, 0, 2^n - 1}]]; Table[a[n], {n, 1, 10}]

a(15)-a(36) from Lars Blomberg, Dec 24 2015

cp's OEIS Frontend

A071030 Triangle read by rows giving successive states of cellular automaton generated by "Rule 54".

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Mathematica

Extensions

A265225 Total number of ON (black) cells after n iterations of the "Rule 54" elementary cellular automaton starting with a single ON (black) cell.

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

A118109 Binary representation of n-th iteration of the Rule 54 elementary cellular automaton starting with a single black cell.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A259661 Binary representation of the middle column of the "Rule 54" elementary cellular automaton starting with a single ON (black) cell.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A204714 Maximum period of cellular automaton rule 54 in a cyclic universe of width n.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions