%I#22 2022年9月8日08:45:57
%S 1,1,1,1,1,1,1,1,1,2,3,4,5,11,35143719791385996606599,
%电话:11875363491880820071128236981619125951674473264365531123929334,
%电话:3714800022905337315262814729971748323130355428868585553122901797
%N a(N)=(a(N-1)*a(N-4)+a(N-5)*a“N-8”)/a(N-9),a(0)=…=a(8)=1。
%C递归显示了Laurent现象。
%H Reinhard Zumkeller,n表,n=0..36的a(n)</a>
%谢尔盖·福明和安德烈·泽列文斯基,<a href=“https://arxiv.org/abs/math/0104241“>Laurent现象</a>,arXiv:math/0104241v1[math.CO](2001)。
%谢尔盖·福明和安德烈·泽列文斯基,<a href=“https://doi.org/10.1006/aama.2001.0770“>Laurent现象</a>,《应用数学进展》28(2002),119-144。
%F A078918(n)=a(n+4)*a(n+2)*a(n+1)*a(n-1)。
%F a(8-n)=a(n)。
%t循环表[{a[0]==a[1]==a[2]==a[3]==a[4]==a=a[6]==a[7]==1,a[8]==1,a[n]==(a[n-1]a[n-4]+a[n-5]a[n-8])/a[n-9]},a,{n,30}](*_哈维·P·戴勒,2018年3月18日*)
%o(PARI){a(n)=如果(n<0,n=8-n);如果(n<9,1,(a(n-1)*a(n-4)+a(n-5)*a;
%o(岩浆)I:=[1,1,1,1,1,1,1,1,1];[n le 9选择I[n]else(自我(n-1)*自我(n-4)+自我(n-5)*Self(n-8))/自我(n-9):[1..30]]中的n;//_G.C.Greubel,2018年8月10日
%Y参考A078918。
%K nonn公司
%0、10
%2012年12月29日,A _Michael Somos
|