来自在线整数百科全书的问候语!http://oei.org/y*I A290666%66,A29066666,1,2,4,8,16,622,1522304606089216168432668 69120,% %T A290666 13824026856865676567250675 2445 48 48 8912617793024,% u U 290666 345 37072472407267990085 15375 1047 6141475 21732506963364353560964 312122416160搜索:ID:A290666,显示1-1的1π%8894283776π%N A290666小数表示从“规则902”定义的二维元胞自动机的起源到第n个生长阶段的角,基于5-细胞冯诺依曼邻域。%C2A290666在零级上用一个单一的黑色(ON)单元初始化。WalfRAM介质,2002;P.170。%AH 290666 Robert Price,n,a(n)n=0…126的表%H A290666 Robert Price,前20个阶段图%H A290666 N.J.A.斯隆,元胞自动机中的On元数阿西夫:1503.01168[马特公司2015 Eric Weisstein数学世界元胞自动机%H A290666 S.WOWFRAM,一种新的科学%H A290666钨研究简单程序的Wolfram Atlas%H A290666与元胞自动机相关的序列索引条目%H A2906662D 5邻域元胞自动机的索引%H A290666元胞自动机索引卷积[ {{ 0, 2, 0 },{ 0, 2, 0 },{ 0, 2, 0 },A,2 },{ 2 },〉%%A290666码=902;阶段%A290666规则=整数数字[代码,2, 10 ];% %A290666 G=2 *阶段+ 1;(* *最大网格大小*)%%A290666 A= pDeLe[ {{ 1 },{g,g},0,地板[{g,g}/y] ];%T A290666 CAST[规则,AY]:= MAP[规则[[ 10 -] ] ]=表[CA=CAST[规则,CA ],{n,1,阶段+ 1 };%%A290666预置[CA,a];(*修整全网格以反映每个阶段中一个细胞的生长*)×%t a290666 k=(长度[Ca[[ 1 ] ]+1)/2;[%%a290666 Ca=表] [部分[Ca[[n]][j]],范围[k+1 -n,k- 1 +n]],{j,k+1–(*网格上的单元格* *)%T A290666 CA=A;[%%T A290666表] [FRODITIT] [部分[C[[i]][i][]],[I,1,阶段-1 } ]%A290666,A290663,A290664,A290665 .0%K A290666 NON,易%%A290666 0,2‰A290666罗伯特Price,Aug 08 2017‰内容可在OEIS最终用户许可协议下获得:n,k-1+n},{n,1,k};HTTP:/OEIS.Org/许可证