A272539-OEIS公司

OEIS由OEIS基金会的许多慷慨捐赠者.

A272539号

基于5细胞von Neumann邻域，“规则491”定义的二维细胞自动机第n个生长阶段的活动（ON，黑色）细胞数。

4

1, 5, 13, 32, 41, 76, 77, 164, 137, 240, 173, 428, 249, 520, 317, 800, 405, 892, 525, 1248, 589, 1408, 733, 1824, 837, 2012, 1025, 2484, 1141, 2700, 1329, 3276, 1465, 3512, 1681, 4172, 1825, 4424, 2089, 5164, 2225, 5456, 2525, 6264, 2673, 6592, 2997, 7464

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,2

评论

在零级用单个黑色（ON）单元初始化。

参考文献

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

链接

罗伯特·普莱斯，n=0..128时的n，a（n）表

罗伯特·普莱斯，前20个阶段的图表

N.J.A.斯隆，元胞自动机中On单元数的研究，arXiv:1503.01168[math.CO]，2015年

埃里克·魏斯坦的数学世界，基本元胞自动机

S.Wolfram，一种新的科学

与细胞自动机相关的序列的索引项

二维五邻域元胞自动机索引

基本元胞自动机索引

数学

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}]；

Map[Function[Apply[Plus，Flatten[#1]]]，ca]（*每个阶段的细胞计数*）

交叉参考

上下文中的序列：A066688号 A046789号 2002年2月*A066184号 A231799型 A146924号

相邻序列：A272536型 A272537号 A272538号*A272540型 A272541型 A272542型

关键词

非n,容易的

作者

罗伯特·普莱斯2016年5月2日

状态

经核准的