|
|
A7345 |
| 基于5规则冯诺依曼邻域的“规则734”定义的二维元胞自动机生长第n阶段活跃(on,黑色)细胞数的部分和。 |
|
一
|
|
|
1, 6, 19、40, 73, 122、183, 264, 377、518, 675, 844、1057, 1318, 1583、1916, 2337, 2814、3255, 3796, 4397、5090, 5815, 6612、7617, 8686, 9747、10928, 12221, 13602、14951, 16444, 18193、20022, 21819, 23816、20022, 21819, 23816、γ、γ
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
抵消
|
0、2
|
|
评论
|
在0级时用单个黑色(ON)单元初始化。
|
|
推荐信
|
沃尔夫拉姆,一种新的科学,WOLFRAM媒体,2002;第170页。
|
|
链接
|
Robert Pricen,a(n)n=0…128的表
斯隆,元胞自动机中的On元数,阿西夫:1503.01168 [数学,CO],2015
Eric Weisstein的数学世界,元胞自动机
S. Wolfram,一种新的科学
与元胞自动机相关的序列索引条目
2D 5邻域元胞自动机的索引
元胞自动机索引
|
|
Mathematica
|
CAST[规则],[AY]:= MAP[Tr[ [ 10 -α] ],ListCurvVe[ {{ 0, 2, 0 },{ 2, 1, 2 },{ 0, 2, 0 },A,2〕,{ 2 };
代码=734;阶段=128;
规则=整数数字[代码,2, 10 ];
g=2*级+1;(*最大网格尺寸*)
A= pDeLe[ {{ 1 }},{g,g},0,地板[{g,g}/2〕;(*网格上的单元* *)
Ca=a;
CA=表[CA=CAST[规则,CA ],{n,1,阶段+ 1 } ];
预置〔CA,A〕;
(*调整全网格以反映每个阶段的一个细胞生长*)
K=(长度[Ca]〔1〕+1)/ 2;
CA=表[表[C][[n][[j]],[k+1-n,k-1 +n]],{j,k+1-n,k-1 +n},{n,1,k};
ON= MAP[函数[Apple [ Plus,Plutt[O](1)],CA ](*对每个阶段的细胞计数*)
表[总数[部分,范围[1,i]],{i,1,长度[ON]}](*在每个阶段*和)
|
|
交叉裁判
|
囊性纤维变性。A17353.
语境中的顺序:A27 811 A27 A2233*A35357A A27 37 78 A1739 80
相邻序列:A2345 2 A17353 A7345*A7345 A27 345 A7345
|
|
关键词
|
诺恩,容易
|
|
作者
|
罗伯特·普莱斯5月22日2016
|
|
地位
|
经核准的
|
|
|
|