OFFSET
0,1
LINKS
Index entries for linear recurrences with constant coefficients, signature (4, -2, -3, 2).
FORMULA
G.f.: (2*x-1)*(x^4-2*x^2-3*x+3)/( (x-1) * (2*x^3-x^2-3*x+1)) . [Sep 28 2009]
MATHEMATICA
b1 = x /. NSolve[x^3 - 3*x^2 - x + 2 == 0, x][[1]] b2 = x /. NSolve[x^3 - 3*x^2 - x + 2 == 0, x][[2]] b3 = x /. NSolve[x^3 - 3*x^2 - x + 2 == 0, x][[3]] digits = 25 a = Table[N[3*(b3^n + b1^n + b2^n)/(b3 + b2 + b1)], {n, 0, digits}] Floor[a]
LinearRecurrence[{4, -2, -3, 2}, {3, 3, 10, 29, 94, 292}, 30] (* Harvey P. Dale, Aug 21 2020 *)
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