%I#8 2025年2月16日08:33:29
%S 0,2,2,3,4,6,8,6,10,9,13,9,15,10,19,13,13,20,16,23,15,24,16,30,19,30,18,
%电话:39,16,35,24,37,27,39,27,45,21,46,33,45,31,51,26,36,31,53,55,37,63,
%U 29、69、35、60、44、68、38、70、41、71、37、78、38、76、48、83、41、90
%N“规则75”基本细胞自动机第N次迭代中从单个ON(黑色)细胞开始的OFF(白色)细胞数。
%D S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第55页。
%H Robert Price,n的表,n=0..1000的a(n)</a>
%H Eric Weisstein的数学世界,<a href=“https://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>
%H S.Wolfram,<a href=“http://wolframscience.com/“>一种新的科学</a>
%H<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
%H<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>基本元胞自动机索引</a>
%t规则=75;行=20;ca=细胞自动机[rule,{{1},0},rows-1,{All,All}];(*以单个黑色单元格开始*)catri=表[Take[ca[[k]],{rows-k+1,rows+k-1}],{k,1,rows}];(*每行的截断列表*)nbc=表[Total[catri[[k]]],{k,1,rows}];(*第n阶段中的黑细胞数量*)表[长度[catri[[k]]-nbc[[k]],{k,1,行}](*第n*阶段中的白细胞数量)
%Y参考A266892。
%K nonn,简单
%0、2
%2016年1月5日A报价