OFFSET
0,1
LINKS
Index entries for linear recurrences with constant coefficients, signature (3, -1, -2, 1).
FORMULA
G.f.: (-2*x^2-3*x^3+x^5-3+7*x-x^4)/( (x-1)*(x^3-x^2-2*x+1)) . [Sep 28 2009]
MATHEMATICA
NSolve[x^3 - 2*x^2 - x + 1 == 0, x] b1 = -0.8019377358048383 b2 = 0.5549581320873712 b3 = 2.2469796037174667 digits = 25 a = Table[2*(b3^n + b1^n + b2^n)/ (b3 + b2 + b1), {n, 0, digits}] Floor[a]
LinearRecurrence[{3, -1, -2, 1}, {3, 2, 5, 10, 25, 56}, 30] (* Harvey P. Dale, Jun 07 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 20 2005
EXTENSIONS
Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
STATUS
approved