OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..5000
Eric Weisstein's World of Mathematics, Rule 30
EXAMPLE
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)
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Oct 31 2004
STATUS
approved