|
%I #5 Aug 10 2019 04:31:00
%S 1,0,1,-1,0,1,0,-1,0,1,1,0,-2,0,1,0,1,0,-2,0,1,-1,0,3,0,-3,0,1,0,-1,0,
%T 3,0,-3,0,1,1,0,-4,0,6,0,-4,0,1,0,1,0,-4,0,6,0,-4,0,1,-1,0,5,0,-10,0,
%U 10,0,-5,0,1,0,-1,0,5,0,-10,0,10,0,-5,0,1,1,0,-6,0,15,0,-20,0,15,0,-6,0,1
%N Number triangle T(n,k)=(-1)^((n-k)/2)*C(floor(n/2),floor(k/2))*(1+(-1)^(n-k))/2.
%C Coefficient array of orthogonal polynomials P(n,x)=xP(n-1,x)-((1+(-1)^n)/2)*P(n-2,x), P(0,x)=1,P(1,x)=x.
%C Inverse is A178112.
%e Triangle begins
%e 1,
%e 0, 1,
%e -1, 0, 1,
%e 0, -1, 0, 1,
%e 1, 0, -2, 0, 1,
%e 0, 1, 0, -2, 0, 1,
%e -1, 0, 3, 0, -3, 0, 1,
%e 0, -1, 0, 3, 0, -3, 0, 1,
%e 1, 0, -4, 0, 6, 0, -4, 0, 1,
%e 0, 1, 0, -4, 0, 6, 0, -4, 0, 1,
%e -1, 0, 5, 0, -10, 0, 10, 0, -5, 0, 1
%e Production matrix is
%e 0, 1,
%e -1, 0, 1,
%e 0, 0, 0, 1,
%e 0, 0, -1, 0, 1,
%e 0, 0, 0, 0, 0, 1,
%e 0, 0, 0, 0, -1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 0, 1,
%e 0, 0, 0, 0, 0, 0, -1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
%e Production matrix of inverse is
%e 0, 1,
%e 1, 0, 1,
%e 0, 0, 0, 1,
%e 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 1,
%e 0, 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 0, 1,
%e 0, 0, 0, 0, 0, 0, 1, 0, 1,
%e 0, 0, 0, 0, 0, 0, 0, 0, 0, 1
%p P := (n,x) -> `if`(n < 2, x^n, x*P(n-1,x) - ((1+(-1)^n)/2)*P(n-2,x)):
%p ListTools:-Flatten([seq(PolynomialTools:-CoefficientList(P(n,x), x),n=0..12)]);
%p # _Peter Luschny_, Aug 10 2019
%K easy,sign,tabl
%O 0,13
%A _Paul Barry_, May 20 2010
|
