OFFSET
0,6
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
F. V. Weinstein, Notes on Fibonacci Partitions, arXiv:math/0307150, variable h(n).
Index entries for linear recurrences with constant coefficients, signature (3, -2, -1, 3, -4, 0, 2).
FORMULA
a(n) = 3*a(n-1) -2*a(n-2) -a(n-3) +3*a(n-4) -4*a(n-5) +2*a(n-7).
MATHEMATICA
LinearRecurrence[{3, -2, -1, 3, -4, 0, 2}, {0, 0, 0, 0, 1, 3, 5}, 40] (* Harvey P. Dale, Mar 07 2012 *)
CoefficientList[Series[x^4*(2*x^2 - 1)/((x^2 - 1)*(x^2 + x - 1)*(2*x^3 - 2*x^2 + 2*x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Dec 20 2012 *)
PROG
(Magma) I:=[0, 0, 0, 0, 1, 3, 5]; [n le 7 select I[n] else 3*Self(n-1) - 2*Self(n-2) - Self(n-3) + 3*Self(n-4) - 4*Self(n-5) + 2*Self(n-7): n in [1..40]]; // Vincenzo Librandi, Dec 20 2012
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
R. J. Mathar, Apr 24 2010
STATUS
approved