|
|
A124023
|
|
G.f.: 1/(1-2*x-6*x^2+4*x^3).
|
|
0
|
|
|
1, 2, 10, 28, 108, 344, 1224, 4080, 14128, 47840, 164128, 558784, 1910976, 6518144, 22267008, 75998976, 259527424, 885980672, 3025129984, 10328034304, 35262925824, 120393537536, 411052492800, 1403414507520, 4791569821696, 16359416717312, 55854594334720
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
f[x_] = -4 + 6 x + 2 x^2 - x^3; g[x_] = ExpandAll[x^3*f[1/x]]; Table[ SeriesCoefficient[Series[x/(g[x]), {x, 0, 30}], n], {n, 0, 30}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|