|
| |
|
|
A141431
|
|
Triangle t(n,m) = (m-1) *(3*n-m+1) read by rows, 1<=m<n.
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Row sums are 0, 5, 22, 58, 120, 215, 350, 532, 768, 1065,.. = n*(7n+1)*(n-1)/6.
|
|
|
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;
|
|
|
MAPLE
| A141431 := proc(n, k)
(k-1)*(3*n-k+1) ;
end proc:
seq(seq(A141431(n, m), m=1..n), n=1..14) ; # R. J. Mathar, Nov 10 2011
|
|
|
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: A011441 A199729 A200422 * A166011 A132706 A199184
Adjacent sequences: A141428 A141429 A141430 * A141432 A141433 A141434
|
|
|
KEYWORD
| nonn,easy,tabl
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 06 2008
|
| |
|
|
