|
|
A154692
|
|
Triangle T(n,m) = (2^(n-m)*3^m + 2^m*3^(n-m))*binomial(n, m) read by rows, 0 <= m <= n.
|
|
6
|
|
|
2, 5, 5, 13, 24, 13, 35, 90, 90, 35, 97, 312, 432, 312, 97, 275, 1050, 1800, 1800, 1050, 275, 793, 3492, 7020, 8640, 7020, 3492, 793, 2315, 11550, 26460, 37800, 37800, 26460, 11550, 2315, 6817, 38064, 97776, 157248, 181440, 157248, 97776, 38064
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
Triangle begins
2;
5, 5;
13, 24, 13;
35, 90, 90, 35;
97, 312, 432, 312, 97;
275, 1050, 1800, 1800, 1050, 275;
793, 3492, 7020, 8640, 7020, 3492, 793;
2315, 11550, 26460, 37800, 37800, 26460, 11550, 2315;
6817, 38064, 97776, 157248, 181440, 157248, 97776, 38064, 6817;
|
|
MAPLE
|
(2^(n-m)*3^m+2^m*3^(n-m))*binomial(n, m) ;
end proc:
|
|
MATHEMATICA
|
Clear[t, p, q, n, m]; p = 2; q = 3;
t[n_, m_] = (p^(n - m)*q^m + p^m*q^(n - m))*Binomial[n, m];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|