|
%I #24 Sep 08 2022 08:45:27
%S 5,13,41,34,153,436,89,571,2089,5741,233,2131,10009,33461,90481,610,
%T 7953,47956,195025,620166,1663585,1597,29681,229771,1136689,4250681,
%U 13097377,34988311,4181,110771,1100899,6625109,29134601,103115431,310957991,828931049
%N Triangle T(n, k) = (k*ChebyshevU(n, (k+2)/2) + 2*ChebyshevT(n+1, (k+2)/2))/2.
%H G. C. Greubel, <a href="/A121872/b121872.txt">Rows n = 1..100 of triangle, flattened</a>
%F T(n, m) = ((m+f(m))*(m+2 - f(m))^(n+2) - (m-f(m))*(m+2 + f(m))^(n+2))/( 2^(n+3)*f(m)), where f(m) = sqrt(m*(m+4)).
%F From _G. C. Greubel_, Oct 08 2019: (Start)
%F T(n, k) = (k*ChebyshevU(n, (k+2)/2) + 2*ChebyshevT(n+1, (k+2)/2))/2;
%F T(n, k) = (k*Fibonacci(n+2, m+2, -1) + Lucas(n+2, m+2, -1))/2, where Fibonacci(n, x, y) and Lucas(n, x, y) are the bi-variate Fibonacci an Lucas polynomials, respectively. (End)
%e Triangle begins as:
%e 5;
%e 13, 41;
%e 34, 153, 436;
%e 89, 571, 2089, 5741;
%e 233, 2131, 10009, 33461, 90481;
%p seq(seq(simplify(( k*ChebyshevU(n, (k+2)/2) + 2*ChebyshevT(n+1, (k+2)/2) )/2), k=1..n), n=1..10); # _G. C. Greubel_, Oct 09 2019
%t f[k_]:= Sqrt[k*(k+4)]; T[n_, m_]:= T[n, m]= FullSimplify[((m+f[m])*(m+2 - f[m])^(n+2) - (m-f[m])*(m+2 + f[m])^(n+2))/(2^(n+3)*f[m])]; Table[T[n, m], {n,10}, {m,n}]//Flatten (* modified by _G. C. Greubel_, Oct 08 2019 *)
%t T[n_, k_]:= T[n, k]= (k*ChebyshevU[n, (k+2)/2] + 2*ChebyshevT[n+1, (k+ 2)/2])/2; Table[T[n, k], {n,10}, {k,n}]/Flatten (* _G. C. Greubel_, Oct 08 2019 *)
%o (PARI) T(n,k)= ( k*sin((n+1)*acos((k+2)/2))/sin(acos((k+2)/2)) + 2*cos((n+1)*acos((k+2)/2)) )/2;
%o for(n=1,10, for(k=1,n, print1(round(T(n,k)), ", "))) \\ _G. C. Greubel_, Oct 08 2019
%o (Magma)
%o T:= func< n,k | ( k*Sinh((n+1)*Argcosh((k+2)/2))/Sinh(Argcosh((k+2)/2)) + 2*Cosh((n+1)*Argcosh((k+2)/2)) )/2 >;
%o [Round(T(n,k)): k in [1..n], n in [1..10]]; // _G. C. Greubel_, Oct 08 2019
%o (Sage)
%o [[( k*chebyshev_U(n,(k+2)/2) + 2*chebyshev_T(n+1, (k+2)/2) )/2 for k in (1..n)] for n in (1..10)] # _G. C. Greubel_, Oct 08 2019
%Y Cf. A094954, A162997.
%Y Cf. A053117, A053120.
%K nonn,easy,tabl
%O 1,1
%A _Roger L. Bagula_ and _Gary W. Adamson_, Sep 09 2006
%E Major edit and new name, _G. C. Greubel_, Oct 08 2019
|
