%I#25 2020年11月30日08:14:10
%S 1,2,6,13,22,33,46,61,78,97118141166193222253286321358397,
%电话:43848152657362267372672678183889795810211086115312221293,
%电话:13661441151815971678176118461933202221132206230123982497
%N“规则235”基本细胞自动机从单个ON(黑色)细胞开始,经过N次迭代后ON(黑)细胞的总数。
%C除第一个或两个条目与A123968和A028872相同外_R.J.Mathar_,2016年1月24日
%H Robert Price,n的表,n=0..1000时的a(n)</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>
%H Stephen Wolfram,<a href=“http://wolframscience.com/“>《一种新的科学》,2002年;第55页。
%H<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
%H<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>初等元胞自动机索引</a>
%H<a href=“/index/Rec#order_03”>具有常系数的线性重复出现的索引条目,签名(3,-3,1)。
%F From _Colin Barker_,2016年1月22日和2019年4月20日:(开始)
%当n>2时,F a(n)=3*a(n-1)-3*a(n-2)+a(n-3)。
%财务总监:(1-x+3*x^2-x^4)/(1-x)^3。
%F(结束)
%t规则=235;行=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阶段中的黑细胞数量*)表[总计[Take[nbc,k]],{k,1,rows}](*通过第n阶段的黑细胞数*)
%Y参考A267869。
%Y参考A028872,A123968。
%K nonn,简单
%0、2
%2016年1月21日A _零售价
|