整数序列在线百科全书（OEIS）

修订历史记录A273749型

（粗体、带蓝色下划线的文本是附加;褪色的红色下划线文本是删除.)
显示条目1-10|较旧的更改

A273749型

基于5细胞von Neumann邻域，“规则918”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的第一个差异。
(历史;已发布版本)

#16通过查尔斯·格里特豪斯四世2024年7月26日星期五21:16:43 EDT

名称

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

讨论

7月26日星期五

21:16

OEIS服务器: https://oeis.org/edit/global/1997

#15通过乔格·阿恩特2016年5月31日星期二美国东部夏令时02:20:28

状态

检验过的

经核准的

#14通过米歇尔·马库斯2016年5月30日星期一23:45:11 EDT

状态

提出

检验过的

#13通过罗伯特·普莱斯2016年5月30日星期一18:59:31 EDT

状态

编辑

提出

#12通过罗伯特·普莱斯2016年5月30日星期一18:59:28 EDT

链接

Robert Price，<a href=“/A273749型/b273749.txt“>n表，n=0..127时为a（n）</a>

状态

经核准的

编辑

#11通过N.J.A.斯隆2016年5月30日星期一18:28:14 EDT

状态

检验过的

经核准的

#10通过米歇尔·马库斯2016年5月30日星期一12:58:20 EDT

状态

提出

检验过的

#9通过罗伯特·普莱斯2016年5月30日星期一12:56:40 EDT

状态

编辑

提出

#8通过罗伯特·普莱斯2016年5月30日星期一12:56:37 EDT

名称

分配对于罗伯特价格弗斯特差异属于数属于积极的 (打开,黑色) 细胞在里面 n个-第个阶段属于生长属于二-维度的蜂窝式的自动机定义通过 "规则 918", 基于在这个 5-有细胞的冯诺依曼邻里.

数据

4, 4, 16, 4, 24, 0, 44, 4, 32, 24, 68, -12, 56, 0, 136, -12, 36, 68, 120, -48, 76, 40, 188, -44, 68, 44, 232, -44, 64, 56, 252, -40, 116, 84, 120, 56, 240, -60, 248, 60, 36, 104, 220, 40, 256, -48, 256, 76, 240, 68, 204, 124, 108, 164, 248, 32, 168, 64, 360

抵消

0,1

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

参考文献

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

链接

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｝，｛0，2，0｝｝，a，2]，｛2｝]；

代码=918；阶段=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}]（*每个阶段的差异*）

交叉参考

囊性纤维变性。A273746型.

关键词

分配

签名,容易的

作者

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

状态

经核准的

编辑

#7通过罗伯特·普莱斯2016年5月30日星期一12:56:37 EDT

名称

分配给Robert Price

关键词

回收利用

分配