编辑

经核准的

通用格式：（1-x^2+3*x^3）/（1-x）*（1+x）*。

a（n）=(-2+5*一(-2)^n个+-2) - 4*一(n个-14)^ 对于 n个+>三*2^n个)/4.

当n>3时，a（n）=5*a（n-2）-4*a（n-4）。

通用公式：（1-x^2+3*x^3）/（（1-x）*（1+x）*。

一(n个) = (-2+(-2)^n个+2*(-1)^n个+三*2^n个)/4. （结束）

提出

编辑

编辑

提出

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

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

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

囊性纤维变性。A277797型,A277798号,77799元.

提出

编辑

编辑

提出

推测来自科林·巴克2016年11月1日：（开始）

a（n）=（-2+（-2）^n+2*（-1）^n+3*2^n）/4。

当n>3时，a（n）=5*a（n-2）-4*a（n-4）。

通用公式：（1-x^2+3*x^3）/（（1-x）*（1+x）*。

（结束）

提出

编辑

编辑

提出

规则编号1、9、17、25、257、265、273和281都会生成此序列。

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

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

1, 0, 4, 3, 16, 15, 64, 63, 256, 255, 1024, 1023, 4096, 4095, 16384, 16383, 65536, 65535, 262144, 262143, 1048576, 1048575, 4194304, 4194303, 16777216, 16777215, 67108864, 67108863, 268435456, 268435455, 1073741824, 1073741823, 4294967296, 4294967295

0,3

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

代码=1；阶段=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}]；

表[FromDigits[Part[ca[i]][[i]]，Range[i，2*i-1]]，2]，{i，1，stages-1}]

分配

非n,容易的

罗伯特·普莱斯2016年10月31日

经核准的

编辑