|
Search: id:A144457
|
|
|
| A144457 |
|
Coefficients of polynomials based on the generalized factorial at k=2 (A001147): b(n)=b(n-1+k; a(n)=b(n)*a(n-1); p(x,n)=If[n == 0, 1, a(n - 1)*(x - a(n - 1))*Product[x + 1/b(i), {i, 1, n - 1}]]. |
|
+0
1
|
|
| 1, -1, 1, -3, -8, 3, -15, -119, -217, 15, -105, -1574, -7440, -10954, 105, -945, -22679, -194646, -702874, -892281, 945, -10395, -363824, -4885615, -31288480, -94892945, -108046896, 10395, -135135, -6486479, -124999827, -1232430275, -6521470845, -17442096461, -18261339153, 135135
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Row sums are:
{1, 0, -8, -336, -19968, -1812480, -239477760, -43588823040, -10461389783040, -3201186759966720, -1216451002230374400}.
|
|
FORMULA
|
b(n)=b(n-1+k; a(n)=b(n)*a(n-1); p(x,n)=If[n == 0, 1, a(n - 1)*(x - a(n - 1))*Product[x + 1/b(i), {i, 1, n - 1}]]; t(n,m)=coefficients(p(x,n)).
|
|
EXAMPLE
|
{1},
{-1, 1},
{-3, -8, 3},
{-15, -119, -217, 15},
{-105, -1574, -7440, -10954,105},
{-945, -22679, -194646, -702874, -892281,945},
{-10395, -363824, -4885615, -31288480, -94892945, -108046896, 10395},
{-135135, -6486479, -124999827, -1232430275, -6521470845, -17442096461, -18261339153, 135135}
|
|
MATHEMATICA
|
Clear[a, b, p, x, n]; k = 2; b[0] = 1; b[n_] := b[n] = b[n - 1] + k; a[0] = 1; a[n_] := a[n] = b[n]*a[n - 1]; p[x_, n_] = If[n == 0, 1, a[n - 1]*(x - a[n - 1])*Product[x + 1/b[i], {i, 1, n - 1}]]; Table[CoefficientList[p[x, n], x], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A001147.
Sequence in context: A016623 A046543 A035292 this_sequence A146975 A046970 A058936
Adjacent sequences: A144454 A144455 A144456 this_sequence A144458 A144459 A144460
|
|
KEYWORD
|
sign,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 07 2008
|
|
|
Search completed in 0.002 seconds
|
