|
Search: id:A143080
|
|
|
| A143080 |
|
Triangular sequence of coefficients from an exponential based polynomial: p(x,n)=If[n == 0, 1, -(2*n - 1)!*x^(2*n)*(Sum[x^i/(i + 2*n)!, {i, 0, Infinity}] - Exp[x]/x^(2*n))]. |
|
+0
1
|
|
| 1, 1, 1, 6, 6, 3, 1, 120, 120, 60, 20, 5, 1, 5040, 5040, 2520, 840, 210, 42, 7, 1, 362880, 362880, 181440, 60480, 15120, 3024, 504, 72, 9, 1, 39916800, 39916800, 19958400, 6652800, 1663200, 332640, 55440, 7920, 990, 110, 11, 1, 6227020800, 6227020800
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Row sums are:{1, 2, 16, 326, 13700, 986410, 108505112, 16926797486}
Mathematica fails on them past n=7.
These polynomials are based on:
f[x]=1/(1-x)-Exp[x].
|
|
FORMULA
|
p(x,n)=If[n == 0, 1, -(2*n - 1)!*x^(2*n)*(Sum[x^i/(i + 2*n)!, {i, 0, Infinity}] - Exp[x]/x^(2*n))]; t(n,m)=Coefficients(p)x,n)).
|
|
EXAMPLE
|
{1},
{1, 1},
{6, 6, 3, 1},
{120, 120, 60, 20, 5, 1},
{5040, 5040, 2520, 840, 210, 42, 7, 1},
{362880, 362880, 181440, 60480, 15120, 3024, 504, 72, 9, 1},
{39916800, 39916800, 19958400, 6652800, 1663200, 332640, 55440, 7920, 990, 110, 11, 1},
{6227020800, 6227020800, 3113510400, 1037836800, 259459200, 51891840, 8648640, 1235520, 154440, 17160, 1716, 156, 13, 1}
|
|
MATHEMATICA
|
Clear[f, x, n, a]; f[x_, n_] := f[x, n] = If[n == 0, 1, -(2*n - 1)!*x^(2*n)*(Sum[x^i/(i + 2*n)!, {i, 0, Infinity}] - Exp[x]/x^(2*n))]; a = Table[CoefficientList[FullSimplify[f[x, n]], x], {n, 0, 10}]; Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A033259 A064926 A154006 this_sequence A011484 A146761 A010498
Adjacent sequences: A143077 A143078 A143079 this_sequence A143081 A143082 A143083
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 15 2008
|
|
|
Search completed in 0.002 seconds
|
