OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (2,1,-3,-1).
FORMULA
G.f.: ( 1-x-x^2 ) / ( (1+x)*(1-3*x+2*x^2+x^3) ).
a(n) = Sum_{k=0..floor(n/2)} Sum_{j=0..n-k} (-1)^(k-j) * binomial(n-k, j) * binomial(n-k-j, 2*(k-j)).
MATHEMATICA
LinearRecurrence[{2, 1, -3, -1}, {1, 1, 2, 2}, 51] (* G. C. Greubel, Apr 06 2021 *)
PROG
(Magma) I:=[1, 1, 2, 2]; [n le 4 select I[n] else 2*Self(n-1) +Self(n-2) -3*Self(n-3) -Self(n-4): n in [1..51]]; // G. C. Greubel, Apr 06 2021
(Sage) [sum( sum( (-1)^(k-j)*binomial(n-k, j)*binomial(n-k-j, 2*(k-j)) for j in (0..n-k)) for k in (0..n//2)) for n in (0..50)] # G. C. Greubel, Apr 06 2021
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Paul Barry, Sep 28 2010
EXTENSIONS
Terms a(31) onward added by G. C. Greubel, Apr 06 2021
STATUS
approved