A109906 A triangle based on A000045 and Pascal's triangle: T(n,m) = Fibonacci(n-m+1) * Fibonacci(m+1) * binomial(n,m).

1, 1, 1, 2, 2, 2, 3, 6, 6, 3, 5, 12, 24, 12, 5, 8, 25, 60, 60, 25, 8, 13, 48, 150, 180, 150, 48, 13, 21, 91, 336, 525, 525, 336, 91, 21, 34, 168, 728, 1344, 1750, 1344, 728, 168, 34, 55, 306, 1512, 3276, 5040, 5040, 3276, 1512, 306, 55, 89, 550, 3060, 7560, 13650, 16128, 13650, 7560, 3060, 550, 89

Offset

0,4

Comments

Row sums give A081057.

Links

Reinhard Zumkeller, Rows n = 0..120 of table, flattened

Peter McCalla, Asamoah Nkwanta, Catalan and Motzkin Integral Representations, arXiv:1901.07092 [math.NT], 2019.

Index entries for triangles and arrays related to Pascal's triangle

Formula

T(n,m) = Fibonacci(n-m+1)*Fibonacci(m+1)*binomial(n,m).

T(n,k) = A058071(n,k) * A007318(n,k). - Reinhard Zumkeller, Aug 15 2013

Example

Triangle T(n,k) begins:
   1;
   1,   1;
   2,   2,    2;
   3,   6,    6,    3;
   5,  12,   24,   12,     5;
   8,  25,   60,   60,    25,     8;
  13,  48,  150,  180,   150,    48,    13;
  21,  91,  336,  525,   525,   336,    91,   21;
  34, 168,  728, 1344,  1750,  1344,   728,  168,   34;
  55, 306, 1512, 3276,  5040,  5040,  3276, 1512,  306,  55;
  89, 550, 3060, 7560, 13650, 16128, 13650, 7560, 3060, 550, 89;
  ...

Maple

f:= n-> combinat[fibonacci](n+1):
T:= (n, k)-> binomial(n, k)*f(k)*f(n-k):
seq(seq(T(n, k), k=0..n), n=0..10);  # Alois P. Heinz, Apr 26 2023

Mathematica

Clear[t, n, m] t[n_, m_] := Fibonacci[(n - m + 1)]*Fibonacci[(m + 1)]*Binomial[n, m]; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]

Prog

(Haskell)
a109906 n k = a109906_tabl !! n !! k
a109906_row n = a109906_tabl !! n
a109906_tabl = zipWith (zipWith (*)) a058071_tabl a007318_tabl
-- Reinhard Zumkeller, Aug 15 2013

Crossrefs

Cf. A141611, A141617, A000045, A081057.

Some other Fibonacci-Pascal triangles: A027926, A036355, A037027, A074829, A105809, A111006, A114197, A162741, A228074.

Sequence in context: A318238 A341075 A193450 * A104856 A306393 A324763

Adjacent sequences: A109903 A109904 A109905 * A109907 A109908 A109909

Keyword

nonn,tabl

Author

Roger L. Bagula and Gary W. Adamson, Aug 24 2008

Extensions

Offset changed by Reinhard Zumkeller, Aug 15 2013

Status

approved