|
|
A016724
|
|
Expansion of (2-2*x-x^2)/((1-2*x^2)*(1-x)^2).
|
|
1
|
|
|
2, 2, 5, 4, 9, 6, 15, 8, 25, 10, 43, 12, 77, 14, 143, 16, 273, 18, 531, 20, 1045, 22, 2071, 24, 4121, 26, 8219, 28, 16413, 30, 32799, 32, 65569, 34, 131107, 36, 262181, 38, 524327, 40, 1048617, 42, 2097195, 44
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
G.f.: (2-2*x-x^2)/((1-2*x^2)*(1-x)^2).
|
|
MATHEMATICA
|
CoefficientList[Series[(2-2x-x^2)/(1-2x^2)/(1-x)^2, {x, 0, 50}], x] (* or *) LinearRecurrence[{2, 1, -4, 2}, {2, 2, 5, 4}, 50] (* Harvey P. Dale, Jan 07 2017 *)
|
|
PROG
|
(PARI) x='x+O('x^50); Vec((2-2*x-x^2)/((1-2*x^2)*(1-x)^2)) \\ G. C. Greubel, Sep 15 2018
(Magma) m:=50; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((2-2*x-x^2)/((1-2*x^2)*(1-x)^2))); // G. C. Greubel, Sep 15 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|