|
| |
|
|
A142709
|
|
Polynomials made from cycloidal standing waves: p(x,n)=(4*n + 2)*x + x^n.
|
|
0
| |
|
|
1, 2, 0, 7, 0, 10, 1, 0, 14, 0, 1, 0, 18, 0, 0, 1, 0, 22, 0, 0, 0, 1, 0, 26, 0, 0, 0, 0, 1, 0, 30, 0, 0, 0, 0, 0, 1, 0, 34, 0, 0, 0, 0, 0, 0, 1, 0, 38, 0, 0, 0, 0, 0, 0, 0, 1, 0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Row sums are:
{3, 7, 11, 15, 19, 23, 27, 31, 35, 39, 43};
The cycloid graphic parametrics are:
fc(t,n)=(2-1/n)*Cos[t]/2+Cos[(n-1)*t]/2*n;
fs(t,n)=(2-1/n)*Sin[t]/2+Sin[(n-1)*t]/2*n;
fe(t,n)=(2-1/n)*Exp[I*t]/2+Exp[I*(n-1)*t]/2*n;
Substitutions of x->Exp[i*x] and m->n-1
and multiplication by 2*n give the polynomials.
|
|
|
FORMULA
| p(x,n)=(4*n + 2)*x + x^n; t(n,m)=Coefficients)p(x,n)).
|
|
|
EXAMPLE
| {1, 2},
{0, 7},
{0, 10, 1},
{0, 14, 0, 1},
{0, 18, 0, 0, 1},
{0, 22, 0, 0, 0, 1},
{0, 26, 0, 0, 0, 0, 1},
{0, 30, 0, 0, 0, 0, 0, 1},
{0, 34, 0, 0, 0, 0, 0, 0, 1},
{0, 38, 0, 0, 0, 0, 0, 0, 0, 1},
{0, 42, 0, 0, 0, 0, 0, 0, 0, 0, 1}
|
|
|
MATHEMATICA
| Clear[p, x, n, m] p[x_, n_] = (4*n + 2)*x + x^n; Table[CoefficientList[p[x, n], x], {n, 0, 10}]; Flatten[%]
|
|
|
CROSSREFS
| Sequence in context: A196354 A021487 A197391 * A022897 A192496 A156442
Adjacent sequences: A142706 A142707 A142708 * A142710 A142711 A142712
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 25 2008
|
| |
|
|
