|
|
A154694
|
|
Triangle T(n,m) = ((3/2)^m*2^n+(2/3)^m*3^n)*A008292(n+1,m+1) read by rows.
|
|
4
|
|
|
2, 5, 5, 13, 48, 13, 35, 330, 330, 35, 97, 2028, 4752, 2028, 97, 275, 11970, 54360, 54360, 11970, 275, 793, 69840, 557388, 1043712, 557388, 69840, 793, 2315, 407550, 5409180, 16868520, 16868520, 5409180, 407550, 2315, 6817, 2388516, 51011136
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
2;
5, 5 ;
13, 48, 13 ;
35, 330, 330, 35 ;
97, 2028, 4752, 2028, 97 ;
275, 11970, 54360, 54360, 11970, 275 ;
793, 69840, 557388, 1043712, 557388, 69840, 793 ;
2315, 407550, 5409180, 16868520, 16868520, 5409180, 407550, 2315 ;
6817, 2388516, 51011136, 247761072, 404844480, 247761072, 51011136, 2388516, 6817 ;
20195, 14070570, 473616000, 3441251520, 8491093920, 8491093920, 3441251520, 473616000, 14070570, 20195 ;
60073, 83276472, 4357481076, 46167480576, 164067744672, 244543504896, 164067744672, 46167480576, 4357481076, 83276472, 60073 ;
|
|
MAPLE
|
(3^m*2^(n-m)+2^m*3^(n-m))*A008292(n+1, m+1) ;
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))*Sum[(-1)^j*Binomial[n + 2, j]*(m - j + 1)^(n + 1), {j, 0, m + 1}];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Definition simplified by the Assoc. Eds. of the OEIS, Jun 07 2010
|
|
STATUS
|
approved
|
|
|
|