|
%I #4 Jun 13 2015 10:29:00
%S 1,1,3,19,310,10978,868140,149688297,57339888914,49349265481439,
%T 97121874114574056,443452539940740460176,4761916627762078978228971,
%U 121633155493441873035613043864,7462643123890754031039350760255218
%N Column 0 of triangle A136170.
%o (PARI) /* Generate using matrix power method: */ a(n)=local(A=Mat(1), B); for(m=1, n+1, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i, B[i, j]=1, B[i, j]=(A^(fibonacci(i-1)))[i-1, j]); )); A=B); return( ((A)[n+1, 1]))
%o (PARI) /* Generate using partial sums method: */ a(n)=local(A=vector(n+1), p); A[1]=1; for(j=1, n, p=fibonacci(n+2)-fibonacci(n-j+2)-j; A=Vec((Polrev(A)+x*O(x^p))/(1-x))); A[ #A]
%Y Cf. A136170, A136172, A136173.
%K nonn
%O 0,3
%A _Paul D. Hanna_, Dec 17 2007
|
