login
A136172
Column 1 of triangle A136170.
3
1, 2, 9, 105, 2702, 154609, 19092682, 5161046609, 3089394167519, 4175309542037953, 12956948188014836324, 93772653247517510010693, 1603175184493001749597050954, 65450800470044797091307950768285
OFFSET
0,2
PROG
(PARI) /* Generate using matrix power method: */ a(n)=local(A=Mat(1), B); for(m=1, n+2, 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+2, 2]))
(PARI) /* Generate using partial sums method: */ a(n)=local(A=vector(n+1), p); A[1]=1; for(j=1, n, p=fibonacci(n+3)-fibonacci(n-j+3)-j; A=Vec((Polrev(A)+x*O(x^p))/(1-x))); A[ #A]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 17 2007
STATUS
approved