|
Search: id:A141433
|
|
|
| A141433 |
|
A triangular sequence of coefficient weights: k = 0; l = -1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k). (row sum corrected ). |
|
+0
1
|
|
| 0, 0, 4, 0, 7, 12, 0, 10, 18, 24, 0, 13, 24, 33, 40, 0, 16, 30, 42, 52, 60, 0, 19, 36, 51, 64, 75, 84, 0, 22, 42, 60, 76, 90, 102, 112, 0, 25, 48, 69, 88, 105, 120, 133, 144, 0, 28, 54, 78, 100, 120, 138, 154, 168, 180
(list; table; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Row sums are:
{0, 4, 19, 52, 110, 200, 329, 504, 732, 1020}.
|
|
FORMULA
|
k = 0; l = -1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k).
|
|
EXAMPLE
|
{0},
{0, 4},
{0, 7, 12},
{0, 10, 18, 24},
{0, 13, 24, 33, 40},
{0, 16, 30, 42, 52, 60},
{0, 19, 36, 51, 64, 75, 84},
{0, 22, 42, 60, 76, 90, 102, 112},
{0, 25, 48, 69, 88, 105, 120, 133, 144},
{0, 28, 54, 78, 100, 120, 138, 154, 168, 180}
|
|
MATHEMATICA
|
Clear[T, n, m, a, l, k] T[n_, m_, k_, l_] = (m + l)*((2 - l)*n - m + k); k = 0; 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: A070433 A013666 A016682 this_sequence A019111 A103554 A076261
Adjacent sequences: A141430 A141431 A141432 this_sequence A141434 A141435 A141436
|
|
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
|
