login
Triangle of coefficients of Chebyshev polynomials U_n(x).
8

%I #32 Dec 17 2021 08:12:39

%S 1,2,-1,4,-4,8,1,-12,16,6,-32,32,-1,24,-80,64,-8,80,-192,128,1,-40,

%T 240,-448,256,10,-160,672,-1024,512,-1,60,-560,1792,-2304,1024,-12,

%U 280,-1792,4608,-5120,2048

%N Triangle of coefficients of Chebyshev polynomials U_n(x).

%C Version with zeros in A053117. - _Philippe Deléham_, Nov 27 2013

%D M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards Applied Math. Series 55, 1964 (and various reprintings), p. 796.

%H T. D. Noe, <a href="/A008312/b008312.txt">Rows n = 0..100 of triangle, flattened</a>

%H M. Abramowitz and I. A. Stegun, eds., <a href="http://www.convertit.com/Go/ConvertIt/Reference/AMS55.ASP">Handbook of Mathematical Functions</a>, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

%H D. Foata and G.-N. Han, <a href="http://www-irma.u-strasbg.fr/~foata/paper/pub71.html">Nombres de Fibonacci et polynomes orthogonaux</a>.

%H Valentin Ovsienko, <a href="https://arxiv.org/abs/2103.10800">Towards quantized complex numbers: q-deformed Gaussian integers and the Picard group</a>, arXiv:2103.10800 [math.QA], 2021.

%H M. Janjic and B. Petkovic, <a href="http://arxiv.org/abs/1301.4550">A Counting Function</a>, arXiv preprint arXiv:1301.4550, 2013. - From _N. J. A. Sloane_, Feb 13 2013

%H <a href="/index/Ch#Cheby">Index entries for sequences related to Chebyshev polynomials.</a>

%e From _Philippe Deléham_, Nov 27 2013: (Start)

%e Triangle begins:

%e 1;

%e 2;

%e -1, 4;

%e -4, 8;

%e 1, -12, 16;

%e 6, -32, 32;

%e -1, 24, -80, 64;

%e -8, 80, -192, 128;

%e 1, -40, 240, -448, 256;

%e 10, -160, 672, -1024, 512;

%e -1, 60, -560, 1792, -2304, 1024;

%e -12, 280, -1792, 4608, -5120, 2048;

%e ...

%e With zeros, triangle begins:

%e 1;

%e 0, 2;

%e -1, 0, 4;

%e 0, -4, 0, 8;

%e 1, 0, -12, 0, 16;

%e 0, 6, 0, -32, 0, 32;

%e -1, 0, 24, 0, -80, 0, 64;

%e 0, -8, 0, 80, 0, -192, 0, 128;

%e 1, 0, -40, 0, 240, 0, -448, 0, 256;

%e 0, 10, 0, -160, 0, 672, 0, -1024, 0, 512;

%e -1, 0, 60, 0, -560, 0, 1792, 0, -2304, 0, 1024;

%e 0, -12, 0, 280, 0, -1792, 0, 4608, 0, -5120, 0, 2048;

%e ...

%e (End)

%t a[n_, k_] := Coefficient[ ChebyshevU[n, x], x, k]; row[n_] := Table[a[n, k], {k, Mod[n, 2], n, 2}]; Table[row[n], {n, 0, 11}] // Flatten (* _Jean-François Alcover_, Oct 03 2012 *)

%Y Reflected version with zeros: A053118. Cf. A008310, A053112, A053117.

%K sign,tabf,easy,nice

%O 0,2

%A _N. J. A. Sloane_