|
|
|
|
0, 2, 3, 4, 5, 6, 8, 9, 11, 14, 15, 23, 24, 26, 28, 33, 35
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Rule 30
|
|
MATHEMATICA
|
clip[lst_] := Block[{p = Flatten@ Position[lst, 1]}, Take[lst, {Min@ p, Max@ p}]]; t = Max /@ Map[Length@ # &, Map[Split@ # &, Map[clip, CellularAutomaton[30, {{1}, 0}, 5000]]] /. 1 -> Nothing, {2}]; a = {0}; Do[If[t[[n]] > Max@ a, AppendTo[a, t[[n]]]], {n, Length@ t}]; a (* Michael De Vlieger, Oct 06 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|