%I#21 2022年10月22日01:53:10

%S 1,3,6,13,26,52104209418836233446688133762675253505，

%电话：1070102140204280408560801701716034242030684864013697280，

%电话：2739456054789120109578240219156480438312960876625920175325184035065036817007362

%N“规则126”基本细胞自动机中间列的十进制表示，从单个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 Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Rule126.html“>规则126</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>

%p A267367：=程序（n）局部i，s，z；s：=0；i:=n；z:=1；

%p，而0<=i做s：=s+2^i；i：=i-z；z：=z+z od；s结束：

%p序列（A267367（n），n=0..32）；#_Peter Luschny_，2017年12月2日

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

%o（Python）

%o定义A267367（n）：

%o i，s，z=n，0，1

%o而0≤i:s+=1<<i；i-=z；z+=z

%o返回s

%o打印（[A267367（n）代表范围（33）内的n）]#_Peter Luschny_，2017年12月2日

%Y参考A267366（二进制）、A001855、A071035、A267365。

%K nonn，简单

%0、2

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