A100053 Maximum run of white (or OFF) cells in generation n of the Rule 30 elementary cellular automaton.
0, 0, 2, 1, 3, 1, 4, 2, 5, 3, 4, 4, 3, 2, 4, 2, 6, 4, 4, 3, 5, 4, 4, 3, 5, 5, 4, 3, 4, 4, 4, 5, 8, 6, 5, 3, 5, 4, 5, 3, 5, 5, 5, 9, 7, 5, 11, 9, 7, 6, 8, 6, 4, 7, 5, 3, 5, 6, 5, 4, 4, 5, 5, 3, 14, 12, 10, 8, 6, 5, 4, 7, 5, 6, 4, 6, 4, 4, 6, 4, 6, 7, 5, 5, 4, 4, 11, 9, 7, 6, 4, 6, 7, 5, 7, 5, 8, 6, 5
Offset: 0
Keywords
Examples
From _Michael De Vlieger_, Oct 06 2015: (Start) First 12 rows, replacing "1" with ".", ignoring "0" outside of range of 1's, for better visibility of OFF cells, maximum number of contiguous OFF cells in each row appears at left: 0 . 0 . . . 2 . . 0 0 . 1 . . 0 . . . . 3 . . 0 0 . 0 0 0 . 1 . . 0 . . . . 0 . . . 4 . . 0 0 . 0 0 0 0 . 0 0 . 2 . . 0 . . . . 0 0 . . . . . . 5 . . 0 0 . 0 0 0 . . . 0 0 0 0 0 . 3 . . 0 . . . . 0 . . 0 0 . 0 0 0 . . . 4 . . 0 0 . 0 0 0 0 . 0 . . . . 0 . . 0 0 . 4 . . 0 . . . . 0 0 . . 0 . 0 0 0 0 . 0 . . . . 3 . . 0 0 . 0 0 0 . . . 0 0 . . 0 0 . . 0 . 0 0 0 . (End)
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..5000
- Eric Weisstein's World of Mathematics, Rule 30
- Index entries for sequences related to cellular automata
Programs
-
Mathematica
clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; Max /@ Map[Length@ # &, Map[Split@ # &, Map[clip, CellularAutomaton[30, {{1}, 0}, 98]]] /. 1 -> Nothing, {2}] (* Michael De Vlieger, Oct 06 2015 *) CellularAutomaton[30, {{1}, 0}, 100]; (Reverse[Internal`DeleteTrailingZeros[ Reverse[Internal`DeleteTrailingZeros[#]]]]) & /@ %; Table[(Length /@ Select[%[[i]] // Split, Total[#] == 0 &] // Max), {i, 1, % // Length}] /. -\[Infinity] -> 0 (* Philipp O. Tsvetkov, Sep 25 2018 *)