|
|
A059507
|
|
Transform of A059502 applied to sequence 4,5,6,...
|
|
2
|
|
|
4, 9, 24, 66, 182, 501, 1376, 3771, 10314, 28158, 76744, 208839, 567484, 1539981, 4173852, 11299386, 30556346, 82547961, 222790424, 600753663, 1618558734, 4357256694, 11721125644, 31507528971, 84637773172
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The fourth row of the array A059503.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 6*a(n-1) - 11*a(n-2) + 6*a(n-3) - a(n-4).
G.f.: x*(1-x)*(3*x^2-11*x+4)/(x^2-3*x+1)^2. (End)
a(n) = ((3 - n)*Fibonacci(2*n) + (15 + 3*n)*Fibonacci(2*n - 1))/5. - G. C. Greubel, Sep 10 2017
|
|
MATHEMATICA
|
Rest[CoefficientList[Series[x*(1 - x)*(3*x^2 - 11*x + 4)/(x^2 - 3*x + 1)^2, {x, 0, 50}], x]] (* G. C. Greubel, Sep 10 2017 *)
|
|
PROG
|
(PARI) Vec(x*(1-x)*(3*x^2-11*x+4)/(x^2-3*x+1)^2 + O(x^40)) \\ Michel Marcus, Sep 09 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|