|
Search: id:A157636
|
|
|
| A157636 |
|
Triangle read by rows: t(n,m)=If[n*m*(n - m) == 0, 1, n*m*(n - m)/2]. |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 6, 8, 6, 1, 1, 10, 15, 15, 10, 1, 1, 15, 24, 27, 24, 15, 1, 1, 21, 35, 42, 42, 35, 21, 1, 1, 28, 48, 60, 64, 60, 48, 28, 1, 1, 36, 63, 81, 90, 90, 81, 63, 36, 1, 1, 45, 80, 105, 120, 125, 120, 105, 80, 45, 1
(list; table; graph; listen)
|
|
|
OFFSET
|
0,8
|
|
|
COMMENT
|
Row sums are:
{1, 2, 3, 8, 22, 52, 107, 198, 338, 542, 827,...}.
|
|
FORMULA
|
t(n,m)=If[n*m*(n - m) == 0, 1, n*m*(n - m)/2].
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 1, 1},
{1, 3, 3, 1},
{1, 6, 8, 6, 1},
{1, 10, 15, 15, 10, 1},
{1, 15, 24, 27, 24, 15, 1},
{1, 21, 35, 42, 42, 35, 21, 1},
{1, 28, 48, 60, 64, 60, 48, 28, 1},
{1, 36, 63, 81, 90, 90, 81, 63, 36, 1},
{1, 45, 80, 105, 120, 125, 120, 105, 80, 45, 1}
|
|
MATHEMATICA
|
t[n_, m_] = If[n*m*(n - m) == 0, 1, n*m*(n - m)/2];
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
A107985
Sequence in context: A132729 A034871 A015109 this_sequence A086626 A144163 A080858
Adjacent sequences: A157633 A157634 A157635 this_sequence A157637 A157638 A157639
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 03 2009
|
|
|
Search completed in 0.002 seconds
|
