OFFSET
0,5
COMMENTS
Row sums are:
{1, 2, 4, 14, 152, 3842, 219442, 23853650, 5290981334, 2432822210282,
2340979254062902,...}.
FORMULA
c(n)=If[n == 0, 1, Product[Fibonacci[(i - 1)]*Fibonacci[i]*Fibonacci[i + 1], {i, 2, n}];
t(n,m)=c(n)/(c(m)*c(n-m))
EXAMPLE
{1},
{1, 1},
{1, 2, 1},
{1, 6, 6, 1},
{1, 30, 90, 30, 1},
{1, 120, 1800, 1800, 120, 1},
{1, 520, 31200, 156000, 31200, 520, 1},
{1, 2184, 567840, 11356800, 11356800, 567840, 2184, 1},
{1, 9282, 10135944, 878448480, 3513793920, 878448480, 10135944, 9282, 1},
{1, 39270, 182252070, 66339753480, 1149889060320, 1149889060320, 66339753480, 182252070, 39270, 1},
{1, 166430, 3267853050, 5055368668350, 368030839055880, 1594800302575480, 368030839055880, 5055368668350, 3267853050, 166430, 1}
MATHEMATICA
c[n_] = If[n == 0, 1, Product[Fibonacci[(i - 1)]*Fibonacci[i]*Fibonacci[i + 1], {i, 2, n}];
t[n_, m_] = c[n]/(c[m]*c[n - m]);
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Mar 01 2010
STATUS
approved