|
%I #18 Feb 10 2023 11:43:01
%S 1,0,2,1,0,4,0,4,0,8,1,0,12,0,16,0,6,0,32,0,32,1,0,24,0,80,0,64,0,8,0,
%T 80,0,192,0,128,1,0,40,0,240,0,448,0,256,0,10,0,160,0,672,0,1024,0,
%U 512,1,0,60,0,560,0,1792,0,2304,0,1024,0,12,0,280,0,1792,0,4608,0,5120,0,2048
%N Triangle of coefficients of Pell polynomials.
%C Aside from signs, same as A053117.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PellPolynomial.html">Pell Polynomial</a>
%F G.f. for n-th row is Fibonacci(n, 2*x).
%e 1, 2*x, 1 + 4*x^2, 4*x + 8*x^3, 1 + 12*x^2 + 16*x^4, ...
%t Flatten[Table[CoefficientList[Fibonacci[n, 2 x], x], {n, 0, 20}]] (* _Emanuele Munarini_, Dec 01 2017 *)
%Y Cf. A053117.
%K nonn,tabl
%O 1,3
%A _Eric W. Weisstein_, Jan 20 2006
|
