%I#17 2019年4月20日05:35:26

%S 1,7,231033751639600726215961194311537911671088724606583，

%电话：1073741833937053351717986919629928536727487790695100788565879，

%电话：43980465111111612617054071703687441776725801872865143112589990684263412829965842295

%N“规则214”基本细胞自动机第N次迭代的十进制表示，从单个ON（黑色）单元开始。

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

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

%H A.J.Macfarlane，<A href=“http://www.damtp.cam.ac.uk/user/ajm/Papers2016/GFsForCAsOfEvenRuleNo.ps“>生成由细胞自动机进化定义的整数序列的函数……</a>，图14。

%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月22日和2019年4月20日来自科林·巴克的推测：（开始）

%当n>3时，F a（n）=17*a（n-2）-16*a（n-4）。

%传真：（1+7*x+6*x^2-16*x^3）/（（1-x）*（1+x）*。

%F（结束）

%t规则=214；行=20；ca=细胞自动机[规则，｛｛1｝，0｝，行-1，｛All，All｝]；（*以单个黑色单元格开始*）catri=表[Take[ca[[k]]，{rows-k+1，rows+k-1}]，{k，1，rows}]；（*每行的截断列表*）表[FromDigits[catri[[k]]，2]，{k，1，rows}]（*行的十进制表示*）

%Y参考A071040。

%K nonn，简单

%0、2

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