%I#20 2018年11月9日21:03:00

%S 0,0,2,1,3,1,4,2,5,3,4,4,3,2,4,6,4,5,5,4,8,6，

%温度：5,3,5,4,5,3,15,5,9,7,5,11,9,76,8,6,4,7,5A,6,5,5,14,12，

%U 10,8,6,5,4,7,5,6,4,4,6,6,4，6,6,17,5,14,4,11,9,7,6,2,8,6,15,5

%N规则30基本细胞自动机第N代中白色（或OFF）细胞的最大运行次数。

%H Michael De Vlieger，n的表，n=0..5000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Rule30.html“>规则30</a>

%H<a href=“/index/Ce#cell”>为与细胞自动机相关的序列的条目建立索引</a>

%e来自Michael De Vlieger_，2015年10月6日：（开始）

%e前12行，将“1”替换为“.”，忽略1范围外的“0”，为了更好地显示OFF单元格，每行中相邻的最大OFF单元格数显示在左侧：

%e 0。

%e 0。

%e 2。0 0 .

%e 1。0 . . . .

%e 3。0 0 . 0 0 0 .

%e 1。0 . . . . 0 . . .

%e 4。0 0 . 0 0 0 0 . 0 0 .

%e 2。0 . . . . 0 0 . . . . . .

%e 5。0 0 . 0 0 0 . . . 0 0 0 0 0 .

%e 3。0 . . . . 0 . . 0 0 . 0 0 0 . . .

%e 4。0 0 . 0 0 0 0 . 0 . . . . 0 . . 0 0 .

%e 4。0 . . . . 0 0 . . 0 . 0 0 0 0 . 0 . . . .

%e 3。0 0 . 0 0 0 . . . 0 0 . . 0 0 . . 0 . 0 0 0 .

%e（完）

%t clip[lst_]：=块[{p=Flatten@Position[lst，1]}，取[lst、{Min@p、Max@p}]]；Max/@Map[Length@#&，Map[Split@#&、Map[clip，CellularAutomaton[30，{{1}，0}，98]]/。1->没有，{2}]（*Michael De Vlieger_，2015年10月6日*）

%t细胞自动机[30，{{1}，0}，100]；

%t（反转[Internal`DeleteTrailingZeros[

%t反转[Internal`DeleteTrailingZeros[#]]]）&/@%；

%t表[（长度/@选择[%[[i]]//拆分，总计[#]=0&]//最大值），｛i，

%t 1，%//长度｝]/-\【无限】->0（*_Philipp O.Tsvetkov，2018年9月25日*）

%Y参考A100054，A100055。

%K nonn公司

%0、3

%A _Eric W.Weisstein，2004年10月31日