A267484 Triangle of coefficients of Gaussian polynomials [2n+5,4]_q represented as finite sum of terms (1+q^2)^k*q^(g-k), where k = 0,1,...,g with g=4n+2.
-1, 1, 1, -1, 0, 5, -2, -4, 1, 1, -2, 2, 17, -9, -32, 12, 24, -6, -8, 1, 1, -2, 0, 31, -12, -121, 52, 187, -67, -143, 38, 58, -10, -12, 1, 1, -3, 3, 64, -37, -357, 168, 883, -361, -1154, 397, 875, -239, -399, 80, 108, -14, -16, 1, 1, -3, 0, 94, -36, -808, 366, 3019, -1312, -6023, 2351, 7182, -2415, -5439, 1512, 2686, -587, -863, 138, 174, -18, -20, 1, 1, -4, 4, 158, -94, -1720, 856, 8611, -3923, -23883, 10003, 40648, -15328, -45241, 14957, 34203, -9623, -17893, 4135, 6485, -1175, -1599, 212, 256, -22, -24, 1, 1
Offset: 0
Examples
-1,1,1; -1,0,5,-2,-4,1,1; -2,2,17,-9,-32,12,24,-6,-8,1,1; -2,0,31,-12,-121,52,187,-67,-143,38,58,-10,-12,1,1; -3,3,64,-37,-357,168,883,-361,-1154,397,875,-239,-399,80,108,-14,-16,1,1;
Links
- Stephen O'Sullivan, Table of n, a(n) for n = 0..902
- S. O'Sullivan, A class of high-order Runge-Kutta-Chebyshev stability polynomials, Journal of Computational Physics, 300 (2015), 665-678.
- Wikipedia, Gaussian binomial coefficients.
Programs
-
Maple
A267484 := proc (n, k) local y: y := expand(subs(t = 0, diff((1+t)*product(1+t^2+2*t*ChebyshevT(i, x/2), i = 1 .. n+2),t$4)/4!)): if k = 0 then subs(x = 0, y) else subs(x = 0, diff(y, x$k)/k!) end if: end proc: seq(seq(A267484(n, k), k = 0 .. 4*n+2), n = 0 .. 20);
-
Mathematica
row[n_] := 1/4! D[(1+t)*Product[1+t^2+2*t*ChebyshevT[i, x/2], {i, 1, n+1}], {t, 4}] /. t -> 0 // CoefficientList[#, x]&; Table[row[n], {n, 0, 20}] // Flatten (* From A267120 entry by Jean-François Alcover *)
Formula
G.f. for row polynomial: G(n,x) = (d^4/dt^4)((1+t)*Product_{i=1..n+1}(1+t^2+2t*T(i,x/2))/4!)|_{t=0}.
Comments