login
A137376
Triangle: p(x) = (1 - t/c)*(1 - t)^(-x - b); c = 1/2; b = 1.
0
1, -1, 1, -2, -1, 1, -6, -7, 0, 1, -24, -38, -13, 2, 1, -120, -226, -125, -15, 5, 1, -720, -1524, -1076, -285, -5, 9, 1, -5040, -11628, -9604, -3521, -490, 28, 14, 1, -40320, -99504, -91988, -41020, -8911, -616, 98, 20, 1, -362880, -945936, -953532, -487432, -134757, -18375, -378, 222, 27, 1, -3628800
OFFSET
1,4
EXAMPLE
{1},
{-1, 1},
{-2, -1, 1},
{-6, -7, 0, 1},
{-24, -38, -13, 2, 1},
{-120, -226, -125, -15, 5, 1},
{-720, -1524, -1076, -285, -5, 9, 1},
{-5040, -11628, -9604, -3521, -490,28, 14, 1},
{-40320, -99504, -91988, -41020, -8911, -616, 98, 20,1},
{-362880, -945936, -953532, -487432, -134757, -18375, -378,222, 27, 1},
...
MATHEMATICA
c = 1/2; b = 1;
p[t_] = (1 - t/c)*(1 - t)^(-x - b);
Table[ ExpandAll[n!*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n]], {n, 0, 10}];
a = Table[ CoefficientList[n!*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n], x], {n, 0, 10}];
Flatten[a]
CROSSREFS
Sequence in context: A321789 A173887 A288025 * A039761 A196073 A144089
KEYWORD
uned,tabl,sign,less
AUTHOR
Roger L. Bagula, Apr 09 2008
STATUS
approved