%I#13 2022年9月8日08:45:18
%S 1,1,3,4,10,14,33,491091703625861201201403768781353623464,
%电话:45475798911513011271612515460922372173810131295655865063,
%电话:10611336198023823596097066888917121820229226016385412547222
%N数字三角形A106522的对角线和。
%H G.C.Greubel,n表,n=0..1000时的a(n)</a>
%H<a href=“/index/Rec#order_05”>具有常系数的线性重复出现的索引条目,签名(0,3,1,0,-1)。
%财务报表:(1+x)/((1+x-x^2)*(1-x-x^2-x^3))。
%Fa(n)=3*a(n-2)+a(n-3)-a(n-5)。
%F a(n)=总和{k=0..层(n/2)}A106522(n-k,k)
%F a(n)=(1/11)*(10*T(n+2)+5*T_G.C.Greubel,2021年8月10日
%tT[n_]:=t[n]=如果[n<2,0,如果[n==2,1,t[n-1]+t[n-2]+t[n-3]];(*A000073*)
%t a[n_]:=(1/11)*((-1)^n*(斐波那契[n+2]+2*Fibonacci[n])+10*t[n+2]+5*t[n+1]+3*t[n]);
%t表[a[n],{n,0,40}](*_G.C.Greubel_,2021年8月10日*)
%o(岩浆)I:=[1,1,3,4,10];[n le 5选择I[n]else 3*自我(n-2)+自我(n-3)-自我(n-5):n in[1..41]];//_G.C.Greubel_,2021年8月10日
%o(鼠尾草)
%o@CachedFunction
%o定义T(n):
%o如果(n<2):返回0
%o elif(n==2):返回2
%o else:返回T(n-1)+T(n-2)+T(n-3)
%o定义a(n):返回(1/11)*((-1)^n*(斐波那契(n+2)+2*fibonacci(n))+10*T
%o[a(n)代表n in(0..40)]#_G.C.Greubel_,2021年8月10日
%Y参见A106522、A000045、A000073。
%K容易,不是
%O 0.3
%A Paul Barry,2005年5月6日
|