|
Search: id:A158613
|
|
|
| A158613 |
|
A sequence of quadratic coefficients from an infinite sum polynomial: p(x,n)=n*x/(Sum[n^k*Fibonacci[k]*x^k, {k, 0, Infinity}]). |
|
+0
1
|
|
| 1, 1, -1, -1, 1, -2, -4, 1, -3, -9, 1, -4, -16, 1, -5, -25, 1, -6, -36, 1, -7, -49, 1, -8, -64, 1, -9, -81, 1, -10, -100
(list; table; graph; listen)
|
|
|
OFFSET
|
0,6
|
|
|
COMMENT
|
Quadratic sums are:
{1, -1, -5, -11, -19, -29, -41, -55, -71, -89, -109,...}.
|
|
FORMULA
|
p(x,n)=n*x/(Sum[n^k*Fibonacci[k]*x^k, {k, 0, Infinity}]); t(n,m)=coefficients(p(x,n),x)
|
|
EXAMPLE
|
{1},
{1, -1, -1},
{1, -2, -4},
{1, -3, -9},
{1, -4, -16},
{1, -5, -25},
{1, -6, -36},
{1, -7, -49},
{1, -8, -64},
{1, -9, -81},
{1, -10, -100}
|
|
MATHEMATICA
|
Clear[t0, p, x, n, m];
p[x_, n_] = FullSimplify[n*x/(Sum[n^k*Fibonacci[k]*x^k, {k, 0, Infinity}])];
Table[ExpandAll[p[x, n]], {n, 0, 10}];
Table[CoefficientList[FullSimplify[ExpandAll[p[x, n]]], x], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
A156133
Sequence in context: A011233 A163360 A076053 this_sequence A100075 A059836 A069270
Adjacent sequences: A158610 A158611 A158612 this_sequence A158614 A158615 A158616
|
|
KEYWORD
|
sign,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 22 2009
|
|
|
Search completed in 0.002 seconds
|
