OFFSET
0,2
COMMENTS
REFERENCES
Harry Hochstadt, The Functions of Mathematical Physics, Dover, New York, 1986, p. 93.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
Index entries for linear recurrences with constant coefficients, signature (5,15,-15,-5,1)
FORMULA
G.f.: ( -1+2*x ) / ( (x-1)*(x^2+3*x+1)*(x^2-7*x+1) ). - R. J. Mathar, Nov 17 2011
MAPLE
with (combinat):
A177727 := proc(n)
if n = 0 then
1;
else
procname(n-1)*fibonacci(3+n)*fibonacci(1+n)/fibonacci(n)^2 ;
end if;
end proc:
seq(A177727(n), n=0..10) ; # R. J. Mathar, Nov 17 2011
MATHEMATICA
a0 = 4; b0 = 2; c0 = 1;
a[0] = 1;
a[n_] := a[n] = (Fibonacci[(a0 + n - 1)]*Fibonacci[( b0 + n - 1)]/(Fibonacci[n]*Fibonacci[(c0 + n - 1)]))*a[n - 1];
Table[a[n], {n, 0, 30}]
LinearRecurrence[{5, 15, -15, -5, 1}, {1, 3, 30, 180, 1300}, 30] (* Vincenzo Librandi, Nov 18 2011 *)
PROG
(Magma) I:=[1, 3, 30, 180, 1300]; [n le 5 select I[n] else 5*Self(n-1)+15*Self(n-2)-15*Self(n-3)-5*Self(n-4)+Self(n-5): n in [1..30]]; // Vincenzo Librandi, Nov 18 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 12 2010
STATUS
approved