|
Search: id:A157521
|
|
|
| A157521 |
|
A triangular function using Gamma functiona as Binomial like: t(n,m)=n!*d/dm*(Binomial[n,m]); g(x,y)=y!*D[Gamma[y + 1]/(Gamma[x + 1]*Gamma[y - x + 1]),{1,x}]. |
|
+0
1
|
|
| 0, 1, -1, 3, 0, -3, 11, 9, -9, -11, 50, 80, 0, -80, -50, 274, 650, 400, -400, -650, -274, 1764, 5544, 6300, 0, -6300, -5544, -1764, 13068, 51156, 82908, 44100, -44100, -82908, -51156, -13068, 109584, 513792, 1072512, 1016064, 0, -1016064, -1072512
(list; table; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Row sums are zero since the derivative positive on one side and negative on the other.
I call this the "collapsing middle" binomial function.
|
|
FORMULA
|
t(n,m)=n!*d/dm*(Binomial[n,m]);
g(x,y)=y!*D[Gamma[y + 1]/(Gamma[x + 1]*Gamma[y - x + 1]),{1,x}].
|
|
EXAMPLE
|
{0},
{1, -1},
{3, 0, -3},
{11, 9, -9, -11},
{50, 80, 0, -80, -50},
{274, 650, 400, -400, -650, -274},
{1764, 5544, 6300, 0, -6300, -5544, -1764},
{13068, 51156, 82908, 44100, -44100, -82908, -51156, -13068},
{109584, 513792, 1072512, 1016064, 0, -1016064, -1072512, -513792, -109584},
{1026576, 5610384, 14276736, 18797184, 9144576, -9144576, -18797184, -14276736, -5610384, -1026576},
{10628640, 66369600, 198871200, 330739200, 279417600, 0, -279417600, -330739200, -198871200, -66369600, -10628640}
|
|
MATHEMATICA
|
f[x_, y_] = Gamma[y + 1]/(Gamma[x + 1]*Gamma[y - x + 1]);
g[x_, y_] = D[f[x, y], {x, 1}];
Table[Table[Rationalize[y!*N[g[x, y]]], {x, 0, y}], {y, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A104141 A060533 A157525 this_sequence A128252 A033596 A063529
Adjacent sequences: A157518 A157519 A157520 this_sequence A157522 A157523 A157524
|
|
KEYWORD
|
sign,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 02 2009
|
|
|
Search completed in 0.002 seconds
|
