|
Search: id:A137375
|
|
|
| A137375 |
|
Triangular sequence from coefficients of Mahler polynomials from expansion of: p(x)=Exp[x*(1 + t - Exp[t])] with weight n!:M(x,n). |
|
+0
1
|
|
| 1, 0, 0, -1, 0, -1, 0, -1, 3, 0, -1, 10, 0, -1, 25, -15, 0, -1, 56, -105, 0, -1, 119, -490, 105, 0, -1, 246, -1918, 1260, 0, -1, 501, -6825, 9450, -945
(list; table; graph; listen)
|
|
|
OFFSET
|
1,9
|
|
|
COMMENT
|
Row sums are: A000587
|
|
REFERENCES
|
Weisstein, Eric W., Mahler Polynomial. http://mathworld.wolfram.com/MahlerPolynomial.html
|
|
FORMULA
|
p(x)=Exp[x*(1 + t - Exp[t])]-> M(x,n) out(n,m)Coefficients(n!M(x,n))
|
|
EXAMPLE
|
{1},
{0},
{0, -1},
{0, -1},
{0, -1, 3},
{0, -1, 10},
{0, -1, 25, -15},
{0, -1, 56, -105},
{0, -1, 119, -490, 105},
{0, -1, 246, -1918, 1260},
{0, -1, 501, -6825, 9450, -945}
|
|
MATHEMATICA
|
Clear[p, x, t] p[t_] = Exp[x*(1 + t - Exp[t])]; 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]; Flatten[{{1}, {0}, {0, -1}, {0, -1}, {0, -1, 3}, {0, -1, 10}, {0, -1, 25, -15}, {0, -1, 56, -105}, {0, -1, 119, -490, \ 105}, {0, -1, 246, -1918, 1260}, {0, -1, 501, -6825, 9450, -945}}]
|
|
CROSSREFS
|
Cf. A000587.
Adjacent sequences: A137372 A137373 A137374 this_sequence A137376 A137377 A137378
Sequence in context: A136239 A058175 A112906 this_sequence A135313 A022695 A067169
|
|
KEYWORD
|
uned,tabl,sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 09 2008
|
|
|
Search completed in 0.002 seconds
|
