# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a100054
Showing 1-1 of 1

%I A100054 #11 Oct 07 2015 09:33:52
%S A100054 0,2,3,4,5,6,8,9,11,14,15,23,24,26,28,33,35
%N A100054 Records in A100053.
%H A100054 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Rule30.html">Rule 30</a>
%H A100054 <a href="/index/Ce#cell">Index entries for sequences related to cellular automata</a>
%t A100054 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 *)
%Y A100054 Cf. A100053, A100055.
%K A100054 nonn,more
%O A100054 0,2
%A A100054 _Eric W. Weisstein_, Oct 31 2004

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE