cp's OEIS Frontend

A210869 Triangle of coefficients of polynomials v(n,x) jointly generated with A210868; see the Formula section.

%I A210869 #13 Dec 26 2021 04:40:16
%S A210869 1,0,2,1,0,3,0,3,0,5,1,0,7,0,8,0,4,0,15,0,13,1,0,12,0,30,0,21,0,5,0,
%T A210869 31,0,58,0,34,1,0,18,0,73,0,109,0,55,0,6,0,54,0,162,0,201,0,89,1,0,25,
%U A210869 0,145,0,344,0,365,0,144,0,7,0,85,0,361,0,707,0,655,0,233,1,0
%N A210869 Triangle of coefficients of polynomials v(n,x) jointly generated with A210868; see the Formula section.
%C A210869 Row n starts with 1 or 0 and ends with F(n+1), where F=A000045 (Fibonacci numbers).
%C A210869 Row sums:  1,2,4,8,16,32,... (A000079)
%C A210869 Alternating row sums: 1, -2, 4, -8, 16,... (A122803)
%C A210869 For a discussion and guide to related arrays, see A208510.
%F A210869 u(n,x)=u(n-1,x)+x*v(n-1,x),
%F A210869 v(n,x)=(x+1)*u(n-1,x)+(x-1)*v(n-1,x),
%F A210869 where u(1,x)=1, v(1,x)=1.
%F A210869 T(n,k) = T(n-1,k-1) + T(n-2,k) + T(n-2,k-2), T(1,0) = 1, T(2,0) = 0, T(2,1) = 2 and T(n,k) = 0 if k<0 or if k>=n. - _Philippe Deléham_, Apr 02 2012
%e A210869 First six rows:
%e A210869 1
%e A210869 0...2
%e A210869 1...0...3
%e A210869 0...3...0...5
%e A210869 1...0...7...0....8
%e A210869 0...4...0...15...0...13
%e A210869 First three polynomials v(n,x): 1, 2x, 1 + 3x^2
%t A210869 u[1,x_]:=1;v[1,x_]:=1;z=14;
%t A210869 u[n_,x_]:=u[n-1,x]+x*v[n-1,x];
%t A210869 v[n_,x_]:=(x+1)*u[n-1,x]+(x-1)*v[n-1,x];
%t A210869 Table[Expand[u[n,x]],{n,1,z/2}]
%t A210869 Table[Expand[v[n,x]],{n,1,z/2}]
%t A210869 cu=Table[CoefficientList[u[n,x],x],{n,1,z}];
%t A210869 TableForm[cu]
%t A210869 Flatten[%]   (* A210868 *)
%t A210869 cv=Table[CoefficientList[v[n,x],x],{n,1,z}];
%t A210869 TableForm[cv]
%t A210869 Flatten[%]   (* A210869 *)
%t A210869 Table[u[n,x]/.x->1,{n,1,z}]   (* A000079 *)
%t A210869 Table[v[n,x]/.x->1,{n,1,z}]   (* A000079 *)
%t A210869 Table[u[n,x]/.x->-1,{n,1,z}]  (* A151575 *)
%t A210869 Table[v[n,x]/.x->-1,{n,1,z}]  (* A122803 *)
%Y A210869 Cf. A210868, A208510.
%K A210869 nonn,tabl
%O A210869 1,3
%A A210869 _Clark Kimberling_, Mar 29 2012