|
|
A123583
|
|
Triangle read by rows: T(n, k) is the coefficient of x^k in the polynomial 1 - T_n(x)^2, where T_n(x) is the n-th Chebyshev polynomial of the first kind.
|
|
11
|
|
|
0, 1, 0, -1, 0, 0, 4, 0, -4, 1, 0, -9, 0, 24, 0, -16, 0, 0, 16, 0, -80, 0, 128, 0, -64, 1, 0, -25, 0, 200, 0, -560, 0, 640, 0, -256, 0, 0, 36, 0, -420, 0, 1792, 0, -3456, 0, 3072, 0, -1024, 1, 0, -49, 0, 784, 0, -4704, 0, 13440, 0, -19712, 0, 14336, 0, -4096
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
T(n, k) = coefficients of ( 1 - ChebyshevT(n, x)^2 ).
T(n, k) = coefficients of ( (1 - ChebyshevT(2*n, x))/2 ). - G. C. Greubel, Jul 02 2021
|
|
EXAMPLE
|
First few rows of the triangle are:
0;
1, 0, -1;
0, 0, 4, 0, -4;
1, 0, -9, 0, 24, 0, -16;
0, 0, 16, 0, -80, 0, 128, 0, -64;
1, 0, -25, 0, 200, 0, -560, 0, 640, 0, -256;
0, 0, 36, 0, -420, 0, 1792, 0, -3456, 0, 3072, 0, -1024;
First few polynomials (p(n, x) = 1 - T_{n}(x)^2) are:
p(0, x) = 0,
p(1, x) = 1 - x^2,
p(2, x) = 0 4*x^2 - 4*x^4,
p(3, x) = 1 - 9*x^2 + 24*x^4 - 16*x^6,
p(4, x) = 0 16*x^2 - 80*x^4 + 128*x^6 - 64*x^8,
p(5, x) = 1 - 25*x^2 + 200*x^4 - 560*x^6 + 640*x^8 - 256*x^10,
p(6, x) = 0 36*x^2 - 420*x^4 + 1792*x^6 - 3456*x^8 + 3072*x^10 - 1024*x^12.
|
|
MATHEMATICA
|
(* First program *)
Table[CoefficientList[1 - ChebyshevT[n, x]^2, x], {n, 0, 10}]//Flatten
(* Second program *)
T[n_, k_]:= T[n, k]= SeriesCoefficient[(1 -ChebyshevT[2*n, x])/2, {x, 0, k}];
Table[T[n, k], {n, 0, 12}, {k, 0, 2*n}]//Flatten (* G. C. Greubel, Jul 02 2021 *)
|
|
PROG
|
(Magma) [0] cat &cat[ Coefficients(1-ChebyshevT(n)^2): n in [1..8] ];
(PARI) v=[]; for(n=0, 8, v=concat(v, vector(2*n+1, j, polcoeff(1-poltchebi(n)^2, j-1)))); v
(Sage)
def T(n): return ( (1 - chebyshev_T(2*n, x))/2 ).full_simplify().coefficients(sparse=False)
|
|
CROSSREFS
|
|
|
KEYWORD
|
tabf,sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|