登录
三角形阵列的主对角线T:((j-1)mod 6)<3时,T(j,1)=1,否则为0;T(j,k)=T(j-1,k-1)+T(j、k-1),对于2<=k<=j。
15

%I#25 2022年9月8日08:45:30

%S 1,2,4,7,11,16,23,37,741754311024229148259650185713495565536,

%电话:1245112424614849229895272031034194304856575517308657,

%电话:346173146870318713581205126843545653208794310593929172118785834

%N三角形阵列的主对角线T:T(j,1)=1,表示((j-1)mod 6)<3,否则为0;T(j,k)=T(j-1,k-1)+T(j、k-1),对于2<=k<=j。

%H Vincenzo Librandi,n的表,n=1..1000的a(n)</a>

%H Paul Curtz,关于这个序列的评论</a>

%H<a href=“/index/Rec#order_03”>常系数线性重复出现的索引条目,签名(5,-9,6)。

%F G.F.:x*(1-x)^3/((1-2*x)*(1-3*x+3*x^2))。[乘以x以匹配偏移量_R.J.Mathar_,2009年7月22日]

%F a(1)=1,a(2)=2,a(3)=4,a(4)=7;对于n>4,a(n)=5*a(n-1)-9*a(n-2)+6*a(n-3)。

%A088911的F二项式变换_Klaus Brockhaus,2007年6月17日

%F a(n+1)=A057083(n)/3+2^(n-1),n>1_R.J.Mathar,2009年7月22日

%e T的前七行是

%电子[1]

%e[1,2]

%e[1、2、4]

%e[0,1,3,7]

%e[0,0,1,4,11]

%e[0,0,0,1,5,16]

%e[1,1,1,1,2,7,23]。

%t a[n_]:=2^(n-2)+2*3^((n-3)/2)*Sin[n*Pi/6];a[1]=1;表[a[n],{n,1,33}](*Jean-François Alcover_,2012年8月13日*)

%t系数列表[系列[(1-x)^3/((1-2x)(1-3x+3x^2)),{x,0,33}],x](*V文森佐图书馆,2018年2月13日*)

%o(PARI){m=33;v=concat([1,2,4,7],向量(m-4));对于(n=5,m,v[n]=5*v[n-1]-9*v[n-2]+6*v[n-3]);v}\\_Klaus Brockhaus_,2007年6月10日

%o(岩浆)m:=33;M: =零矩阵(整数环(),M,M);对于j:=1到m do,如果(j-1)mod 6 lt 3,则m[j,1]:=1;结束条件:;结束;对于k:=2到m do,对于j:=k到m doM[j,k]:=m[j-1,k-1]+m[j、k-1];结束;结束;[M[n,n]:[1..M]]中的n;//_Klaus Brockhaus,2007年6月10日

%o(岩浆)m:=33;S: =[1,1,1,0,0,0][(n-1)mod 6+1]:n in[1..m]];[&+[二项式(i-1,k-1)*S[k]:k in[1..i]]:i in[1..m]];//_Klaus Brockhaus,2007年6月17日

%o(岩浆)I:=[1,2,4,7];[n le 4选择I[n]else 5*Self(n-1)-9*Self(n-2)+6*Self(n-3):n in[1..40]];//_文森佐·利班迪(Vincenzo Librandi),2018年2月13日

%Y参考A038504、A131022(T按行读取)、A131023(T的第一次对角线)、A121024(T的行和)、A13125(T的反对角线和)。T的第一至第六列分别位于A088911、A131026、A131027、A131028、A131029、A131030中。

%K nonn,简单

%O 1,2号机组

%A Paul Curtz,2007年5月28日

%E由Klaus Brockhaus编辑和扩展,2007年6月10日