| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，“规则590”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的部分和。
+10
1
1, 6, 15, 32, 49, 86, 135, 176, 233, 310, 407, 520, 661, 810, 1035, 1224, 1473, 1722, 2083, 2340, 2689, 3098, 3535, 4064, 4589, 5126, 5763, 6444, 7129, 7962, 8815, 9792, 10865, 11822, 12955, 14032, 15165, 16418, 17611, 19004, 20409, 21878, 23415, 25136
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=590；阶段=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邻域，“规则590”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的第一个差异。
+10
1
4, 4, 8, 0, 20, 12, -8, 16, 20, 20, 16, 28, 8, 76, -36, 60, 0, 112, -104, 92, 60, 28, 92, -4, 12, 100, 44, 4, 148, 20, 124, 96, -116, 176, -56, 56, 120, -60, 200, 12, 64, 68, 184, 72, 160, -4, 256, -220, 240, 140, -32, 40, 320, -124, 268, -4, 52, 228, 16
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=590；阶段=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邻域，“规则590”定义的二维细胞自动机第2^n-1阶段的活动（ON，黑色）细胞数。
+10
0
1, 5, 17, 41, 189, 977, 4013, 14577, 60617, 241005, 964021, 3841653, 15349713, 61414133, 245738437, 982690957
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=590；阶段=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.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间：美国东部夏令时2024年9月21日17:12。包含376087个序列。（在oeis4上运行。）
| 