OFFSET
0,1
LINKS
Index entries for linear recurrences with constant coefficients, signature (4, -1, -3, 1).
FORMULA
G.f.: (-3*x^2-5*x^3-2*x^4+x^5-3+9*x)/( (x-1) * (x^3-2*x^2-3*x+1)). [Sep 28 2009]
MATHEMATICA
b3 = x /. NSolve[x^3 - 3*x^2 - 2*x + 1 == 0, x][[1]] b2 = x /. NSolve[x^3 - 3*x^2 - 2*x + 1 == 0, x][[2]] b1 = x /. NSolve[x^3 - 3*x^2 - 2*x + 1 == 0, x][[3]] digits = 25 a = Table[3*(b3^n + b1^n + b2^n)/(b3 + b2 + b1), {n, 0, digits}]
Join[{3, 3}, LinearRecurrence[{4, -1, -3, 1}, {12, 41, 148, 517}, 40]] (* Harvey P. Dale, Jul 10 2012 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, May 22 2005
EXTENSIONS
Definition replaced by recurrence by the Associate Editors of the OEIS, Sep 28 2009
STATUS
approved