OFFSET
0,2
FORMULA
EXAMPLE
a(n) = A003266(n)*[F(n+2) + F(n+1)*[1+ 2/1+ 3/2+ 5/3+...+ F(n+1)/F(n)]]:
a(3) = 1*1*2*( 5 + 3*(1/1 + 2/1 + 3/2) ) = 37;
a(4) = 1*1*2*3*( 8 + 5*(1/1 + 2/1 + 3/2 + 5/3) ) = 233;
a(5) = 1*1*2*3*5*( 13 + 8*(1/1 + 2/1 + 3/2 + 5/3 + 8/5) ) = 2254.
PROG
(PARI) a(n)=polcoeff(prod(i=0, n+1, fibonacci(i+1)+x*fibonacci(i)), n)
(PARI) /* Recurrence a(n) = F(n+1)*a(n-1) + F(n+2)*A003266(n): */ {a(n)=if(n==0, 1, fibonacci(n+1)*a(n-1)+fibonacci(n+2)*prod(i=1, n, fibonacci(i)))}
(PARI) a(n)=prod(i=1, n, fibonacci(i))*(fibonacci(n+2) + fibonacci(n+1)*sum(k=1, n, fibonacci(k+1)/fibonacci(k)) )
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, May 24 2007, May 25 2007
STATUS
approved