|
|
A015547
|
|
Expansion of x/(1 - 5*x - 11*x^2).
|
|
1
|
|
|
0, 1, 5, 36, 235, 1571, 10440, 69481, 462245, 3075516, 20462275, 136142051, 905795280, 6026538961, 40096442885, 266774142996, 1774931586715, 11809173506531, 78570114986520, 522751483504441, 3478028682373925, 23140409730418476
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
G.f.: x/(1 - 5*x - 11*x^2).
a(n) = 5*a(n-1) + 11*a(n-2).
|
|
MATHEMATICA
|
a[n_]:=(MatrixPower[{{1, 5}, {1, -6}}, n].{{1}, {1}})[[2, 1]]; Table[Abs[a[n]], {n, -1, 40}] (* Vladimir Joseph Stephan Orlovsky, Feb 20 2010 *)
CoefficientList[Series[x/(1-5x-11x^2), {x, 0, 30}], x] (* or *) LinearRecurrence[ {5, 11}, {0, 1}, 30] (* Harvey P. Dale, Dec 15 2011 *)
|
|
PROG
|
(Sage) [lucas_number1(n, 5, -11) for n in range(0, 21)]# Zerinvary Lajos, Apr 24 2009
(Magma) [n le 2 select n-1 else 5*Self(n-1) + 11*Self(n-2): n in [1..30]]; // Vincenzo Librandi, Nov 13 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|