OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for linear recurrences with constant coefficients, signature (0,3,0,-1).
FORMULA
G.f.: -2*x*(x-1)*(7*x^2+15*x+7) / ((x^2-x-1)*(x^2+x-1)).
a(n) = 3*a(n-2)-a(n-4).
a(n) = 2*A228210(n). - Hugo Pfoertner, Feb 11 2024
MATHEMATICA
CoefficientList[Series[-2 (x - 1) (7 x^2 + 15 x + 7) / ((x^2 - x - 1) (x^2 + x - 1)), {x, 0, 40}], x] (* Vincenzo Librandi, Aug 17 2013 *)
LinearRecurrence[{0, 3, 0, -1}, {14, 16, 26, 34}, 50] (* Harvey P. Dale, May 25 2023 *)
PROG
(PARI) Vec(-2*x*(x-1)*(7*x^2+15*x+7)/((x^2-x-1)*(x^2+x-1)) + O(x^100))
(Magma) I:=[14, 16, 26, 34]; [n le 4 select I[n] else 3*Self(n-2)-Self(n-4): n in [1..40]]; // Vincenzo Librandi, Aug 17 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Colin Barker, Aug 16 2013
STATUS
approved
