|
Search: id:A141431
|
|
|
| A141431 |
|
A triangular sequence of coefficient weights: k = 1; l = -1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k). |
|
+0
1
|
|
| 0, 0, 5, 0, 8, 14, 0, 11, 20, 27, 0, 14, 26, 36, 44, 0, 17, 32, 45, 56, 65, 0, 20, 38, 54, 68, 80, 90, 0, 23, 44, 63, 80, 95, 108, 119, 0, 26, 50, 72, 92, 110, 126, 140, 152, 0, 29, 56, 81, 104, 125, 144, 161, 176, 189
(list; table; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Row sums are:
{0, 5, 22, 58, 120, 215, 350, 532, 768, 1065}
|
|
FORMULA
|
k = 1; l = -1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k).
|
|
EXAMPLE
|
{0},
{0, 5},
{0, 8, 14},
{0, 11, 20, 27},
{0, 14, 26, 36, 44},
{0, 17, 32, 45, 56, 65},
{0, 20, 38, 54, 68, 80, 90},
{0, 23, 44, 63, 80, 95, 108, 119},
{0, 26, 50, 72, 92, 110, 126, 140, 152},
{0, 29, 56, 81, 104, 125, 144, 161, 176, 189}
|
|
MATHEMATICA
|
Clear[T, n, m, a, l, k] T[n_, m_, k_, l_] = (m + l)*((2 - l)*n - m + k); k = 1; l = -1; a = Table[Table[T[n, m, k, l], {m, 1, n}], {n, 1, 10}]; Flatten[a] Table[Sum[T[n, m, 1, 1], {m, 1, n}], {n, 1, 10}]; TableForm[a];
|
|
CROSSREFS
|
Sequence in context: A143821 A099219 A011441 this_sequence A132706 A019925 A101115
Adjacent sequences: A141428 A141429 A141430 this_sequence A141432 A141433 A141434
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 06 2008
|
|
|
Search completed in 0.002 seconds
|
