A100054 Records in A100053.

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

Offset

0,2

Links

Table of n, a(n) for n=0..16.

Eric Weisstein's World of Mathematics, Rule 30

Index entries for sequences related to cellular automata

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

Cf. A100053, A100055.

Sequence in context: A134030 A226189 A235592 * A330193 A372667 A101271

Adjacent sequences: A100051 A100052 A100053 * A100055 A100056 A100057

Keyword

nonn,more,changed

Author

Eric W. Weisstein, Oct 31 2004

Status

approved