|
|
A195339
|
|
Expansion of 1/(1-4*x+2*x^3+x^4).
|
|
5
|
|
|
1, 4, 16, 62, 239, 920, 3540, 13620, 52401, 201604, 775636, 2984122, 11480879, 44170640, 169938680, 653808840, 2515413201, 9677604804, 37232862856, 143246816182, 551116641919, 2120323237160, 8157566453420, 31384785713660, 120747379738401
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
G.f.: 1/((1-x)*(1-3*x-3*x^2-x^3)).
a(n) = 4*a(n-1)-2*a(n-3)-a(n-4).
|
|
MATHEMATICA
|
CoefficientList[Series[1/(1-4x+2x^3+x^4), {x, 0, 30}], x] (* or *) LinearRecurrence[{4, 0, -2, -1}, {1, 4, 16, 62}, 30] (* Harvey P. Dale, Dec 02 2011 *)
|
|
PROG
|
(PARI) Vec(1/(1-4*x+2*x^3+x^4)+O(x^25))
(Magma) m:=25; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/(1-4*x+2*x^3+x^4)));
(Maxima) makelist(coeff(taylor(1/(1-4*x+2*x^3+x^4), x, 0, n), x, n), n, 0, 24);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|