|
Search: id:A141429
|
|
|
| A141429 |
|
A triangular sequence of coefficient weights: k = 1; l = 1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k). |
|
+0
1
|
|
| 2, 4, 3, 6, 6, 4, 8, 9, 8, 5, 10, 12, 12, 10, 6, 12, 15, 16, 15, 12, 7, 14, 18, 20, 20, 18, 14, 8, 16, 21, 24, 25, 24, 21, 16, 9, 18, 24, 28, 30, 30, 28, 24, 18, 10, 20, 27, 32, 35, 36, 35, 32, 27, 20, 11
(list; table; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Row sums are:
{2, 7, 16, 30, 50, 77, 112, 156, 210, 275}
|
|
FORMULA
|
k = 1; l = 1; t(n,m,k,l)=(m + l)*((2 - l)*n - m + k).
|
|
EXAMPLE
|
{2},
{4, 3},
{6, 6, 4},
{8, 9, 8, 5},
{10, 12, 12, 10, 6},
{12, 15, 16, 15, 12, 7},
{14, 18, 20, 20, 18, 14, 8},
{16, 21, 24, 25, 24, 21, 16, 9},
{18, 24, 28, 30, 30, 28, 24, 18, 10},
{20, 27, 32, 35, 36, 35, 32, 27, 20, 11}
|
|
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: A087559 A091850 A143273 this_sequence A039819 A083050 A083044
Adjacent sequences: A141426 A141427 A141428 this_sequence A141430 A141431 A141432
|
|
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
|
