| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，“规则491”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的部分和。
+10
1
1, 6, 19, 51, 92, 168, 245, 409, 546, 786, 959, 1387, 1636, 2156, 2473, 3273, 3678, 4570, 5095, 6343, 6932, 8340, 9073, 10897, 11734, 13746, 14771, 17255, 18396, 21096, 22425, 25701, 27166, 30678, 32359, 36531, 38356, 42780, 44869, 50033, 52258, 57714, 60239
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=491；阶段=128；
规则=整数位数[code，2，10]；
g=2*级+1；（*网格的最大尺寸*）
a=PadLeft[{{1}}，{g，g}，0，Floor[{g，c}/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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
表[Total[Part[on，Range[1，i]]]，{i，1，Length[on]}]（*每个阶段的总和*）
基于5细胞von Neumann邻域，“规则491”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的第一个差异。
+10
1
4, 8, 19, 9, 35, 1, 87, -27, 103, -67, 255, -179, 271, -203, 483, -395, 487, -367, 723, -659, 819, -675, 1091, -987, 1175, -987, 1459, -1343, 1559, -1371, 1947, -1811, 2047, -1831, 2491, -2347, 2599, -2335, 3075, -2939, 3231, -2931, 3739, -3591, 3919, -3595
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=491；阶段=128；
规则=整数位数[code，2，10]；
g=2*级+1；（*网格的最大尺寸*）
a=PadLeft[{{1}}，{g，g}，0，Floor[{g，c}/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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
表[on[i+1]-on[i]]，{i，1，长度[on]-1}]（*每个阶段的差异*）
基于5细胞von Neumann邻域，“规则491”定义的二维细胞自动机第2^n-1阶段的活动（ON，黑色）细胞数。
+10
0
1, 5, 32, 164, 800, 3276, 13356, 53784, 215768, 864108, 3458412, 13837464, 55357400, 221444460, 885807468, 3543288984
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=491；阶段=128；
规则=整数位数[code，2，10]；
g=2*级+1；（*网格的最大尺寸*）
a=PadLeft[{{1}}，{g，g}，0，Floor[{g，c}/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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
第[on，2^Range[0，Log[2，stages]]]部分（*提取相关术语*）
搜索在0.007秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间：美国东部夏令时2024年9月21日08:46。包含376084个序列。（在oeis4上运行。）
| 