A192174 Triangle T(n,k) of the coefficients [x^(n-k)] of the polynomial p(0,x)=-1, p(1,x)=x and p(n,x) = x*p(n-1,x) - p(n-2,x) in row n, column k.
-1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, -1, 0, -1, 1, 0, -2, 0, -1, 0, 1, 0, -3, 0, 0, 0, 1, 1, 0, -4, 0, 2, 0, 2, 0, 1, 0, -5, 0, 5, 0, 2, 0, -1, 1, 0, -6, 0, 9, 0, 0, 0, -3, 0, 1, 0, -7, 0, 14, 0, -5, 0, -5, 0, 1, 1, 0, -8, 0, 20, 0, -14, 0, -5, 0, 4, 0
Offset: 0
Examples
Triangle begins -1; # -1 1, 0; # x 1, 0, 1; # x^2+1 1, 0, 0, 0; # x^3 1, 0, -1, 0, -1; # x^4-x^2-1 1, 0, -2, 0, -1, 0; 1, 0, -3, 0, 0, 0, 1; 1, 0, -4, 0, 2, 0, 2, 0; 1, 0, -5, 0, 5, 0, 2, 0, -1; 1, 0, -6, 0, 9, 0, 0, 0, -3, 0; 1, 0, -7, 0, 14, 0, -5, 0, -5, 0, 1; 1, 0, -8, 0, 20, 0,-14, 0, -5, 0, 4, 0; 1, 0, -9, 0, 27, 0,-28, 0, 0, 0, 9, 0, -1;
Crossrefs
Programs
-
Maple
p:= proc(n,x) option remember: if n=0 then -1 elif n=1 then x elif n>=2 then x*procname(n-1,x)-procname(n-2,x) fi: end: A192174 := proc(n,k): coeff(p(n,x),x,n-k): end: seq(seq(A192174(n,k),k=0..n), n=0..11); # Johannes W. Meijer, Aug 21 2011
Comments