|
|
A133156
|
|
Irregular triangle read by rows: coefficients of U(n,x), Chebyshev polynomials of the second kind with exponents in decreasing order.
|
|
17
|
|
|
1, 2, 4, -1, 8, -4, 16, -12, 1, 32, -32, 6, 64, -80, 24, -1, 128, -192, 80, -8, 256, -448, 240, -40, 1, 512, -1024, 672, -160, 10, 1024, -2304, 1792, -560, 60, -1, 2048, -5120, 4608, -1792, 280, -12, 4096, -11264, 11520, -5376, 1120, -84, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
The Chebyshev polynomials of the second kind are defined by the recurrence relation: U(0,x) = 1; U(1,x) = 2x; U(n+1,x) = 2x*U(n,x) - U(n-1,x).
Row sums of absolute values give the Pell series, A000129.
(End)
The row sums are {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, ...}.
Triangle, with zeros omitted, given by (2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (0, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938. - Philippe Deléham, Dec 27 2011
Coefficients in the expansion of sin((n+1)*x)/sin(x) in descending powers of cos(x). The length of the n-th row is A008619(n). - Jianing Song, Nov 02 2018
|
|
LINKS
|
Tracale Austin, Hans Bantilan, Isao Jonas and Paul Kory, The Pfaffian Transformation, Journal of Integer Sequences, Vol. 12 (2009), page 25
|
|
FORMULA
|
A generating function for U(n) is 1/(1 - 2tx + t^2). Given A038207, shift down columns to allow for (1, 1, 2, 2, 3, 3, ...) terms in each row, then insert alternate signs.
Shifted o.g.f.: G(x,t) = x/(1 - 2x + tx^2).
A053117 is a reflected, aerated version of this entry; A207538, an unsigned version; and A099089, a reflected, shifted version.
The compositional inverse of G(x,t) is Ginv(x,t) = ((1 + 2x) - sqrt((1 + 2x)^2 - 4tx^2))/(2tx) = x - 2x^2 + (4 + t)x^3 - (8 + 6t)x^4 + ..., a shifted o.g.f. for A091894 (mod signs with A091894(0,0) = 0.). Cf. A097610 with h_1 = -2 and h_2 = t. (End)
|
|
EXAMPLE
|
The first few Chebyshev polynomials of the second kind are
1;
2x;
4x^2 - 1;
8x^3 - 4x;
16x^4 - 12x^2 + 1;
32x^5 - 32x^3 + 6x;
64x^6 - 80x^4 + 24x^2 - 1;
128x^7 - 192x^5 + 80x^3 - 8x;
256x^8 - 448x^6 + 240x^4 - 40x^2 + 1;
512x^9 - 1024x^7 + 672x^5 - 160x^3 + 10x;
...
1;
2;
4, -1;
8, -4;
16, -12, 1;
32, -32, 6;
64, -80, 24, -1;
128, -192, 80, -8;
256, -448, 240, -40, 1;
512, -1024, 672, -160, 10;
1024, -2304, 1792, -560, 60, -1; (End)
Triangle (2, 0, 0, 0, 0, ...) DELTA (0, -1/2, 1/2, 0, 0, 0, 0, 0, ...) begins:
1;
2, 0;
4, -1, 0;
8, -4, 0, 0;
16, -12, 1, 0, 0;
32, -32, 6, 0, 0, 0;
64, -80, 24, -1, 0, 0, 0; (End)
|
|
MATHEMATICA
|
t[n_, m_] = (-1)^m*Binomial[n - m, m]*2^(n - 2*m);
Table[Table[t[n, m], {m, 0, Floor[n/2]}], {n, 0, 10}];
|
|
CROSSREFS
|
|
|
KEYWORD
|
tabf,sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|