OFFSET
0,9
COMMENTS
First differences of A107293. [Sep 28 2009]
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..800
Index entries for linear recurrences with constant coefficients, signature (1, 1, -1, 0, 1).
FORMULA
G.f.: x^2*(-1+x)/(-1+x+x^2-x^3+x^5). [Sep 28 2009]
MATHEMATICA
M = {{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, -1, 1, 1}} fourss = Table[Abs[MatrixPower[M, i][[1, 4]]], {i, 1, 50}]
LinearRecurrence[{1, 1, -1, 0, 1}, {0, 0, 1, 0, 1}, 50] (* Harvey P. Dale, Nov 05 2011 *)
PROG
(Magma) I:=[0, 0, 1, 0, 1]; [n le 5 select I[n] else Self(n-1)+Self(n-2)-Self(n-3)+Self(n-5): n in [1..50]]; // Vincenzo Librandi, Nov 16 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Jun 08 2005
EXTENSIONS
Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
STATUS
approved