%I#44 2022年8月10日07:54:07
%S 1,3,11,4014653319467105259419471334580612625704609761,
%电话1683066861450341224360935819162731299083964810919834926,
%电话:3986933732514556667472653147752665319404045617084852176865
%N(1-x)/(1-4*x+x^2+x^3)的展开。
%C a(n)=M^n中的项(3,1),M=3X3矩阵[1,1,2;1,2,1;1,1,1]_Gary W.Adamson_,2009年3月12日
%H Vincenzo Librandi,n的表,n=0..1000的a(n)</a>
%H Paul Barry,<a href=“https://arxiv.org/abs/1204.01644“>中心多边形数、七边形和非边形,以及罗宾斯数</a>,arXiv:2140.1644[math.CO],2021。
%H INRIA算法项目,<a href=“http://ecs.inria.fr/services/structure?nbr=932“>组合结构百科全书932</a>
%H<a href=“/index/Rec#order_03”>带常系数的线性重复出现的索引条目,签名(4,-1,-1)。
%财务报表:(1-x)/(1-4*x+x^2+x^3)。
%F a(n)=4*a(n-1)-a(n-2)-a。
%F a(n)=Sum_{alpha=RootOf(1-4*z+z^2+z^3)}(3-alpha^2)*alpha^(-1-n)/13。
%F a(n)=(b(n+2)-b(n+1)+b(n))/13,其中b(n_丁浩_,2022年8月8日
%p规范:=[S,{S=序列(并集(Z,Z,Prod(并集,Z),Z))},未标记]:seq(combstruct[计数](规范,大小=n),n=0..20);
%p seq(系数(系列((1-x)/(1-4*x+x^2+x^3),x,n+1),x,n),n=0..30);#_G.C.Greubel,2019年10月18日
%t线性递归[{4,-1,-1},{1,3,11},30](*Wincenzo Librandi_,2012年6月22日*)
%o(岩浆)I:=[1,3,11];[n le 3选择I[n]else 4*Self(n-1)-Self_文森佐·利班迪(Vincenzo Librandi),2012年6月22日
%o(PARI)我的(x='x+o('x^30));Vec((1-x)/(1-4*x+x^2+x^3))\\阿尔图·阿尔坎,2018年9月21日
%o(鼠尾草)
%o定义A052941_list(前c):
%o P.<x>=PowerSeriesRing(ZZ,prec)
%o返回P((1-x)/(1-4*x+x^2+x^3)).list()
%o A052941_list(30)#_G.C.Greubel_,2019年10月18日
%o(间隙)a:=[1,3,11];;对于[4..30]中的n,做a[n]:=4*a[n-1]-a[n-2]-a[n-3];od;a、 #个_G.C.Greubel_,2019年10月18日
%K容易,不是
%0、2
%百科全书(AT)pommard.inia.fr,2000年1月25日
%E来自James A.Sellers_的更多条款,2000年6月6日