A100054 Records in A100053.

0, 2, 3, 4, 5, 6, 8, 9, 11, 14, 15, 23, 24, 26, 28, 33, 35

Offset: 0

Author

Eric W. Weisstein, Oct 31 2004

Keywords

• nonn
• more

Links

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

Crossrefs

Cf. A100053, A100055.

Programs

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 *)