|
| |
|
|
A139167
|
|
A triangular sequence of coefficients from an Hibert polynomial with Fibonacci indexing coefficients from the Fibonacci number a000045: p(x,n)=sum(A000045(i)*Binomial[x.n-i],{i,0,n}].
|
|
1
| |
|
|
1, 1, 1, 4, 1, 1, 18, 11, 0, 1, 120, 50, 23, -2, 1, 960, 494, 65, 45, -5, 1, 9360, 4344, 1354, -15, 85, -9, 1, 105840, 51876, 10444, 3409, -350, 154, -14, 1, 1370880, 653232, 172444, 13300, 8729, -1232, 266, -20, 1, 19958400, 9654480, 2194380, 483272, -13923, 22449, -3150, 438, -27, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| Row sums are:
{0, 1, 2, 6, 30, 192, 1560, 15120, 171360, 2217600, 32296320}.
|
|
|
REFERENCES
| Brendan Hassett, Introduction to algebraic Geometry,Cambridge University Press. New York,2007, page 229
|
|
|
FORMULA
| p(x,n)=sum(A000045(i)*Binomial[x.n-i],{i,0,n}]; out_n,m=Coefficients((n-1)!*p(x,n).
|
|
|
EXAMPLE
| {0},
{1},
{1, 1},
{4, 1, 1},
{18, 11, 0, 1},
{120, 50, 23, -2, 1},
{960, 494, 65, 45, -5, 1},
{9360, 4344, 1354, -15,85, -9, 1},
{105840, 51876, 10444, 3409, -350, 154, -14, 1},
{1370880, 653232, 172444, 13300, 8729, -1232, 266, -20, 1},
{19958400, 9654480, 2194380, 483272, -13923, 22449, -3150, 438, -27, 1}
|
|
|
MATHEMATICA
| Clear[a, p, x] a[0] = 0; a[1] = 1; a[n_] := a[n] = a[n - 1] + a[n - 2]; p[x, 0] = a[0]; p[x_, n_] := p[x, n] = Sum[a[i]*Binomial[x, n - i], {i, 0, n}]; Table[If[n > 0, ExpandAll[(n - 1)!*p[x, n]], 0], {n, 0, 10}]; a = Table[CoefficientList[If[n > 0, ExpandAll[(n - 1)!*p[x, n]], 0], x], {n, 0, 10}]; Flatten[a] Table[Apply[Plus, CoefficientList[If[n > 0, ExpandAll[(n - 1)!*p[x, n]], 0], x]], {n, 0, 10}]
|
|
|
CROSSREFS
| Cf. A000045.
Sequence in context: A034802 A177262 A203092 * A176422 A156586 A181544
Adjacent sequences: A139164 A139165 A139166 * A139168 A139169 A139170
|
|
|
KEYWORD
| uned,tabf,sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 05 2008
|
| |
|
|
