|
|
A055870
|
|
Signed Fibonomial triangle.
|
|
27
|
|
|
1, 1, -1, 1, -1, -1, 1, -2, -2, 1, 1, -3, -6, 3, 1, 1, -5, -15, 15, 5, -1, 1, -8, -40, 60, 40, -8, -1, 1, -13, -104, 260, 260, -104, -13, 1, 1, -21, -273, 1092, 1820, -1092, -273, 21, 1, 1, -34, -714, 4641, 12376, -12376, -4641, 714, 34, -1, 1, -55, -1870, 19635, 85085, -136136, -85085, 19635, 1870, -55, -1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,8
|
|
COMMENTS
|
Row n+1 (n >= 1) of the signed triangle lists the coefficients of the recursion relation for the n-th power of Fibonacci numbers A000045: sum(a(n+1,m)*(F(k-m))^n,m=0..n+1) = 0, k >= n+1; inputs: (F(k))^n, k=0..n.
The inverse of the row polynomial p(n,x) := sum(a(n,m)*x^m,m=0..n) is the g.f. for the column m=n-1 of the Fibonomial triangle A010048.
The row polynomials p(n,x) factorize according to p(n,x)=G(n-1)*p(n-2,-x), with inputs p(0,x)= 1, p(1,x)= 1-x and G(n) := 1-L(n)*x+(-1)^n*x^2, with L(n)=A000032(n) (Lucas). (Derived from Riordan's result and Knuth's exercise).
The row polynomials are the characteristic polynomials of product of the binomial matrix binomial(i,j) and the exchange matrix J_n (matrix with 1's on the antidiagonal, 0 elsewhere). - Paul Barry, Oct 05 2004
|
|
REFERENCES
|
D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, 1969, Vol. 1, pp. 84-5 and 492.
|
|
LINKS
|
|
|
FORMULA
|
a(n, m)=(-1)^floor((m+1)/2)*A010048(n, m). A010048(n, m)=: fibonomial(n, m).
G.f. for column m: (-1)^floor((m+1)/2)*x^m/p(m+1, x) with the row polynomial of the (signed) triangle: p(n, x) := sum(a(n, m)*x^m, m=0..n).
|
|
EXAMPLE
|
Row polynomial for n=4: p(4,x)=1-3*x-6*x^2+3*x^3+x^4= (1+x-x^2)*(1-4*x-x^2). 1/p(4,x) is G.f. for A010048(n+3,3), n >= 0: {1,3,15,60,...}= A001655(n).
n=3: 1*(F(k))^3 - 3*(F(k-1))^3 - 6*(F(k-2))^3 + 3*(F(k-3))^3 + 1*(F(k-4))^3 = 0, k >= 4; inputs: (F(k))^3, k=0..3.
The triangle begins:
n\m 0 1 2 3 4 5 6 7 8 9
0 1
1 1 -1
2 1 -1 -1
3 1 -2 -2 1
4 1 -3 -6 3 1
5 1 -5 -15 15 5 -1
6 1 -8 -40 60 40 -8 -1
7 1 -13 -104 260 260 -104 -13 1
8 1 -21 -273 1092 1820 -1092 -273 21 1
9 1 -34 -714 4641 12376 -12376 -4641 714 34 -1
|
|
MAPLE
|
(-1)^floor((k+1)/2)*A010048(n, k) ;
|
|
MATHEMATICA
|
a[n_, m_] := {1, -1, -1, 1}[[Mod[m, 4] + 1]] * Product[ Fibonacci[n - j + 1] / Fibonacci[j], {j, 1, m}]; Table[a[n, m], {n, 0, 10}, {m, 0, n}] // Flatten (* Jean-François Alcover, Jul 05 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|