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