|
| 数据
|
1, 3, 3, 3, 11, 3, 11, 35, 171, 35, 235, 867, 3115, 5283, 9835, 21091, 39723, 117155, 27755, 66659, 69931, 1315235, 380011, 1244259, 5245227, 17871267, 22029419, 88654947, 56627499, 86774179, 697945195, 1556544611, 2252343595, 6761263523, 4719125611
|
|
| 链接
|
N.J.A.Sloane，<A href=“http://arxiv.org/abs/1503.01168“>关于元胞自动机中On细胞的数量，arXiv:1503.01168[math.CO]，2015
Eric Weisstein的《数学世界》，<a href=“http://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>
S.Wolfram，<a href=“http://wolframscience.com/“>一种新的科学</a>
<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
<a href=“https://oeis.org/wiki/Index_to_2D_5-Neighbor_Cellular_Automata网站“>二维五邻域元胞自动机索引</a>
<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>基本元胞自动机索引</a>
|
|
| 数学
|
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=30；阶段=128；
规则=整数位数[code，2，10]；
g=2*级+1；（*网格最大尺寸*）
a=PadLeft[｛｛1｝｝，｛g，g｝，0，Floor[｛g，g｝/2]]；（*电网上的初始ON电池*）
ca=a；
ca=表[ca=CAStep[rule，ca]，{n，1，stages+1}]；
PrependTo[ca，a]；
（*修剪整个网格以反映每个阶段一个单元格的增长*）
k=（长度[ca[[1]]]+1）/2；
ca=表[表[部分[ca[[n]][[j]]，范围[k+1-n，k-1+n]]，{j，k+1-n，k-1+n}]，{n，1，k}]；
表[FromDigits[Part[ca[i]][[i]]，Range[i，2*i-1]]，2]，{i，1，stages-1}]
|
