The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A204714 Maximum period of cellular automaton rule 54 in a cyclic universe of width n. 1
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 LINKS Eric Weisstein's World of Mathematics, Rule 54 EXAMPLE 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. MATHEMATICA 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}] CROSSREFS Cf. A071030, A118108 Sequence in context: A196222 A035646 A144034 * A341100 A328147 A151783 Adjacent sequences:  A204711 A204712 A204713 * A204715 A204716 A204717 KEYWORD nonn AUTHOR Ben Branman, Jan 18 2012 EXTENSIONS a(15)-a(36) from Lars Blomberg, Dec 24 2015 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.

Last modified April 18 03:59 EDT 2021. Contains 343072 sequences. (Running on oeis4.)