%I#11 2016年1月2日10:54:55

%S 1,0,0,00,0,1,0,1,1,0,1,0,0，1,0,0-0,0_0,0,0-0，1,1,1,1,1，1,0，

%温度0,0,0,1,1,1,1,1,1,1,1,0,1,0,0，

%U 0,0,0,1,1,1,1

%N行读取的三角形，给出由“规则41”生成的元胞自动机的连续状态，由单个ON（黑色）单元启动。

%C行n的长度为2n+1。

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

%H Robert Price，n的表，n=0..10000时的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>

%e前十行：

%第1页

%e 0 0 0

%e 0 0 1 0 1

%e 1 1 0 0 1 0

%e 0 0 0 0 00 0 0 0 1

%e 1 1 1 1 11 1 1 1 0 0

%e 0 0 0 0零0 0 0 00 0 0 1 0 1

%e 1 1 1 1 11 1 1 1 10 0 1 0

%e 0 0 0 0 00 0 0 0零0 0 0○0 0 0 1

%e 11 1 1 1 1 11 1 1 11 11 1 1 1.1 1 1 1 10 0

%t规则=41；行=20；ca=细胞自动机[rule，{{1}，0}，rows-1，{All，All}]；（*以单个黑色单元格开始*）catri=表[Take[ca[[k]]，{rows-k+1，rows+k-1}]，{k，1，rows}]；（*每行的截断列表*）展平[catri]（*CA的三角形表示*）

%K non，tabf，简单

%O 0（零）

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