%I#20 2022年6月13日21:25:15

%S 1,1,24,3138451161448191983041310711572864209715125165824，

%电话：33554431402653184536870911644424509448589939345935104，

%电话：1374389534711649267441664219902325555126388279066624351843720888314222124650659845629499534211311

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

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

%对于n>0，F a（n）=（（-4）^n+（-1）^n-1）/2+4^n。

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

%财务报表：（1+2*x）*（1-x+9*x^2-4*x^3）/（1-x）*。

%F（结束）

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

%Y参见A266982和A266983。

%K nonn，简单

%0、3

%2016年1月7日A报价