cp's OEIS Frontend

A231150 Array of coefficients of numerator polynomials of the rational function p(n, x^(1/2)+x^(-1/2)), where p(n,x) is the n-th Chebyshev polynomial of the 1st kind.

%I A231150 #7 Nov 10 2013 14:19:07
%S A231150 1,1,2,3,2,4,9,9,4,8,24,33,24,8,16,60,105,105,60,16,32,144,306,387,
%T A231150 306,144,32,64,336,840,1281,1281,840,336,64,128,768,2208,3936,4737,
%U A231150 3936,2208,768,128,256,1728,5616,11448,16065,16065,11448,5616,1728,256
%N A231150 Array of coefficients of numerator polynomials of the rational function p(n, x^(1/2)+x^(-1/2)), where p(n,x) is the n-th Chebyshev polynomial of the 1st kind.
%e A231150 First 6 rows:
%e A231150 1
%e A231150 1 .... 1
%e A231150 2 .... 3 ..... 2
%e A231150 4 .... 9 ..... 9 ...... 4
%e A231150 8 .... 24 .... 33 .... 24 .... 8
%e A231150 16 ... 60 .... 105 ... 105 ... 60 ... 16
%e A231150 The first 4 polynomials: 1, 1 + x, 2 + 3*x + 2*x^2, 4 + 9*x + 9*x^2 + 4*x^3.
%t A231150 z = 60; p[n_, x_] := p[n, x] = ChebyshevT[n, x]; f1[n_, x_] := f1[n, x] = Numerator[Factor[p[n, x] /. x -> Sqrt[x] + 1/Sqrt[x]]]; Table[Expand[f1[n, x]], {n, 0, z/4}]; t = Flatten[Table[CoefficientList[f1[n, x], x], {n, 1, z/4}]]
%Y A231150 Cf. A231147.
%K A231150 nonn,tabl,easy
%O A231150 0,3
%A A231150 _Clark Kimberling_, Nov 08 2013