%I#14 2019年4月19日07:11:35

%S 0,2,2,3,3,6,2,11,4,13,2,19,4,21,2,27,4,29,2,35,4,37,2,43,4,45,2,51，

%电话：4,53,2,59,4,61,2,67,4,69,2,75,4,77,2,83,4,85,2,91,4,93,2,99,4101,2，

%U 107、4109、2115、4117、2123、4125、2131、4133、2

%N“规则107”基本细胞自动机第N次迭代中从单个ON（黑色）细胞开始的OFF（白色）细胞数。

%D S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第55页。

%H Robert Price，n的表，n=0..1000的a（n）</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>

%H S.Wolfram，<a href=“http://wolframscience.com/“>一种新的科学</a>

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

%H<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>基本元胞自动机索引</a>

%F 2016年1月11日和2019年4月19日来自科林·巴克的推测：（开始）

%当n>11时，F a（n）=a（n-2）+a（n-4）-a（n-6）。

%F G.F.：x*（2+2*x+x^3-x^4+x^5-x^6+4*x^7+x^8-x^9-x^10+x^11）/（（1-x）^2*（1+x）^2*（1+x^2））。

%F（结束）

%t规则=107；行=20；ca=细胞自动机[rule，{{1}，0}，rows-1，{All，All}]；（*以单个黑色单元格开始*）catri=表[Take[ca[[k]]，{rows-k+1，rows+k-1}]，{k，1，rows}]；（*每行的截断列表*）nbc=表[Total[catri[[k]]]，{k，1，rows}]；（*第n阶段中的黑细胞数量*）表[长度[catri[[k]]-nbc[[k]]，{k，1，行}]（*第n*阶段中的白细胞数量）

%Y参考A267152。

%K nonn，简单

%0、2

%2016年1月11日A _罗伯特价格