A272542-OEIS公司

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

A272542型

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

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

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

抵消

0,1

评论

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

参考文献

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

链接

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

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；

rule=整数位数[代码，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=表[Table[Part[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}]（*每个阶段的差异*）

交叉参考

囊性纤维变性。A272539号.

上下文中的序列：A104137号 308563美元 A272110型*A280114型 A162362号 A274817型

相邻序列：A272539号 A272540型 A272541型*A272543型 A272544型 A272545型

关键字

签名,容易的

作者

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

状态

经核准的