检验过的

经核准的

提出

检验过的

编辑

提出

推测来自柴华武，2024年5月5日：（开始）

当n>24时，a（n）=10001*a（n-4）-10000*a（n-8）。

通用名称：（-99000000000000*x^24-90100000000000000*x^23+10000000000000*x^22+110000000000000*x^21+999990000000000000*x^20+99000000000000000*x^19-100000000000000000*x^18-11011100000000*x^17+1010000000000000*x^16+11000000000000*x^15+110000000000000*x^13-1100000000*x^12-90000000000*x^11-90000000000*x^10+1090000000000*x^9-8900000*x^8-10000*x^7+1091000*x^6-9000*x^5-9000*x^4+1001*x^3+x^2+x+1）/（10000*x^8-10001*x^4+1）。（结束）

经核准的

编辑

提出

经核准的

编辑

提出

囊性纤维变性。A282954型,A282956型,A282957型.

Robert Price，<a href=“/A282955型/a282955.tmp.txt“>前20个阶段的图表</a>

Robert Price，<a href=“/A282955型/a282955.tmp.txt“>前20个阶段的图表</a>

Robert Price，<a href=“/A282955型/b282955.txt“>n表，n=0..126时为a（n）</a>

Robert Price，<a href=“/A282955型/a282955.tmp.txt“>前20个阶段的图表</a>

分配 对于 罗伯特 价格二元的 表示 属于 这个 x个-轴, 从 这个 起源 到 这个 正确的 边缘, 属于 这个 n个-第个 阶段 属于 生长 属于 这个 二-维度的 蜂窝式的 自动机 定义 通过 "规则 533", 基于 在 这个 5-有细胞的 冯 诺依曼 邻里.

1, 1, 1, 1001, 1001, 1001, 1101001, 10001001, 1101001, 1100001001, 10111101001, 10010001001, 1101001, 11111100001001, 101110111101001, 101010010001001, 1011001101001, 111001000100001001, 1001101110111101001, 1100101010010001001, 110101011001101001

0,4

在零级用单个黑色（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>

Wolfram Research，<a href=“http://atlas.wolfram.com/“>Wolfram简单程序地图集</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}，}，a，2]，{2}]；

代码=533；阶段=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=表[Table[Part[ca[[n]][[j]]，范围[k+1-n，k-1+n]]，{j，k+1-n，k-1+n}]，{n，1，k}]；

表[FromDigits[部分[ca[i]][[i]]，范围[i，2*i-1]]，10]，{i，1，阶段-1}]

分配

非n,容易的

罗伯特·普莱斯，2017年2月25日

经核准的

编辑