A137376 Triangle: p(x) = (1 - t/c)*(1 - t)^(-x - b); c = 1/2; b = 1.

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

Links

Table of n, a(n) for n=1..56.

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

Adjacent sequences: A137373 A137374 A137375 * A137377 A137378 A137379

Keyword

uned,tabl,sign,less

Author

Roger L. Bagula, Apr 09 2008

Status

approved