%I#47 2022年2月18日08:16:41
%S 0,1,2,4,8,13,26,40,801212423647281093218632806560984119682,
%电话295245904888573177146265720531440797115943222391484,
%电话:4782968717445314348906215233604304672064570081129140162193710244387420488581130733
%以3为基数的N个重复数字。
%C底座2的外壳参见A000225:2^n-1。
%C如果序列b(n)表示路径图P_5上从节点1开始到节点1、2、3和4结束的长度为n且n>=1的路径数,则a(n-1)=b(n_Johannes W.Meijer,2010年5月29日
%H Alois P.Heinz,n的表格,n=0..1000时的a(n)</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/Repdigit.html“>重复数位</a>。
%H<a href=“/index/Ar#3-automatic”>为3-自动序列索引条目。
%H<a href=“/index/Rec#order_04”>具有常系数的线性重复出现的索引条目,签名(0,4,0,-3)。
%固定资产:(2*x^2+x)/(1-4*x^2+3*x^4)_Alois P.Heinz,2012年9月23日
%F Sum_{n>=1}1/a(n)=3*A214369=2.04646050781571420028…-Amiram Eldar_,2022年1月21日
%F a(n)=(3^(n/2)*_Stefano Spezia,2022年2月18日
%p nmax:=35;a(0):=0:对于从1到nmax的n,做a(2*n):=a(2*n-2)+2*3^(n-1);od:a(1):=1:n从1到nmax做a(2*n+1):=1*a(2*1)+3^n;od:序列(a(n),n=0.nmax);
%p#结束程序1
%p with(GraphTheory):G:=路径图(5):A:=相邻矩阵(G):nmax:=nmax;对于n从1到nmax+1 do B(n):=A^n;b(n):=加上(b(n)[1,k],k=1..4);a1(n-1):=b(n)-1;od:序列(a1(n),n=0.nmax);
%p#结束程序2
%p#摘自Johannes W.Meijer,2010年5月29日,2012年9月23日修订
%p#第三个Maple程序:
%p a:=n->(<0|1>,<-3|4>>^iquo(n,2,'r')`如果`(r=0,<<0,2>>,<<1,4>>))[1,1]:
%p序列(a(n),n=0..60);#_Alois P.Heinz_,2012年9月23日
%t静止[FromDigits[#,3]和/@Flatten[Table[{PadRight[{1},n,1],PadRight[{2},n,2]},{n,0,20}],1]](*哈维·P·戴尔,2011年2月3日*)
%o(PARI)a(n)=([0,1,0,0;0,0,1,0;o,0,0,1;-3,0,4,0]^n*[0;1;2;4])[1,1]\\查尔斯·格里特豪斯IV_,2015年10月7日
%Y等分:A024023和A003462。
%Y参见A000225、A010785、A028987、A02898、A033016、A038754、A068911、A124302、A214369。
%K nonn,基础,简单
%0、3
%A _帕特里克·德·吉斯特,1999年2月15日
|