%I#14 2021年9月3日21:13:55

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

%T 1,1,0,0,00,0,1,0,0，0,02,0,01,0,1,1,1,1,1,1,1,0,1,0，

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

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

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

%H Robert Price，<a href=“/A266377/b266377.txt”>n表，n=0..10000的a（n）</a>

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

%H Stephen Wolfram，<a href=“http://wolframscience.com/“>《一种新的科学》，Wolfram Media，2002年；第55页。

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

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

%e前十行：

%第1页

%e 0 1 1

%e 0 0 0 0

%e 1 1 1 1 11

%e 0 0 0 0 00 0 0 0

%e 11 11 11 11 1 1 1 1 11

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

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

%e 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

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

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

%Y参见A266379、A266380、A266216（倒置行）。

%K non，tabf，简单

%O 0（零）

%2015年12月28日A报价