%I#25 2024年1月6日00:59:41
%S 0,0,1,3121178221324862981318093311435076479144118924,
%电话1732252456753404754626616956810186104895713408571694287,
%电话:211848826235683220568392148947393195688099678295080401009476950
%N a(N)+a(N+1)+a,(N+2)=N^5,其中a(1)=a(2)=0。
%H G.C.Greubel,n表,n=1..5000时的a(n)</a>
%H<a href=“/index/Rec#order_08”>常系数线性递归的索引条目,签名(5,-10,11,-10,12,-10,5,-1)。
%传真:x^3*(x^4+26*x^3+66*x^2+26*x+1)/((x-1)^6*(x*2+x+1))_科林·巴克,2014年10月28日
%e0+0+1=1^5;0 + 1 + 31 = 2^5; 1 + 31 + 211 = 3^5; ...
%t k0=k1=0;lst={k0,k1};执行[kt=k1;k1=n^5-k1-k0;k0=kt;附加到[lst,k1],{n,1,5!}];第一次
%t线性递归[{5,-10,11,-10,11,-10,5,-1},{0,0,1,312117822132,4862},50](*_G.C.Greubel_,2018年9月1日*)
%t系数列表[系列[x^2*(x^4+26*x^3+66*x^2+26*x+1)/((x-1)^6*(x*2+x+1)),{x,0,50}],x](*_Stefano Spezia_,2018年9月2日*)
%o(PARI)concat([0,0],Vec(x^3*(x^4+26*x^3+66*x^2+26*x+1)/((x-1)^6*(x*2+x+1))+o(x^100))\\科林·巴克,2014年10月28日
%o(岩浆)m:=30;R<x>:=PowerSeriesRing(整数(),m);[0,0]cat系数(R!(x^3*(x^4+26*x^3+66*x^2+26*x+1)/((x-1)^6*(x*2+x+1));//_G.C.Greubel,2018年9月1日
%Y参见A152728、A152729、A15272、A1521726、A000212。
%K nonn,简单
%O 1,4型
%A _弗拉迪米尔·约瑟夫·斯蒂芬·奥尔洛夫斯基(Joseph Stephan Orlovsky),2008年12月11日
|