OFFSET
1,5
LINKS
Michel Marcus, Rows n=1..100 of triangle, flattened
Math StackExchange, Variable transformation x->x+1 in Fibonacci-polynomial Fn(x)
Eric Weisstein's World of Mathematics, Fibonacci Polynomial.
EXAMPLE
Triangle begins:
1;
1, 1;
1, 2, 1;
0, 3, 3, 1;
-2, 2, 6, 4, 1;
-4, -3, 7, 10, 5, 1;
...
The first 3 Fibonacci polynomials are 1, x, x^2 + 1. So F3(n, x+1) = x^2 + 2*x + 2 = 1*1 + 2*x + 1*(x^2+1) = 1*F(1,x) + 2*F(2, x) + 1*F(3,x), so the 3rd row is [1, 2, 1].
PROG
(PARI) rowV(n) = my(v= if (n==0, [0], n--; vector(n+1, k, k--; if (k%2==0, binomial(n-k/2, k/2))))); Pol(v); \\ A162515
rowT(n, vfp, vfp1) = {my(vp1 = vfp1[n], vc = vector(n), i=n); forstep (k = poldegree(vp1), 0, -1, vc[i] = polcoef(vp1, k)/polcoef(vfp[k+1], k); vp1 -= vfp[k+1]*vc[i]; i--; ); vc; }
tabl(nn) = {my(vfp = vector(nn, k, rowV(k))); my(vfp1 = vector(nn, k, subst(vfp[k], x, x+1))); for(n=1, nn, print((rowT(n, vfp, vfp1))); ); }
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Michel Marcus, Jul 02 2021
STATUS
approved