(PARI)M=[1,1,0;1,3,1;0,1,1];对于(i=0,40,打印1((M^i)[1,1],“,”)
(岩浆)I:=[1,1,2];[n le 3在[1..30]]中选择I[n]else 5*Self(n-1)-5*Self(n-2)+Self(n-3):n//文森佐·利班迪2015年9月18日
(PARI){a(n)=如果(n<1,a(1-n),polceoff((1/(1-x)+(1-3*x)/(1-4*x+x^2))/2+x*O(x^n),n))}/*迈克尔·索莫斯,2017年7月9日*/