|
| |
|
|
A141429
|
|
Triangle t(n,m) = (m+1) * (n-m+1) read by rows, 1<=m<=n.
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Remove the leading two columns from A158823.
Row sums are 2, 7, 16, 30, 50, 77, 112, 156, 210, 275,.. = A005581(n+1).
|
|
|
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;
|
|
|
MAPLE
| A141429 := proc(n, k)
(k+1)*(n-k+1) ;
end proc:
seq(seq(A141429(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
| Cf. A003991, A004247, A144329.
Sequence in context: A168007 A091850 A143273 * A162953 A039819 A194277
Adjacent sequences: A141426 A141427 A141428 * A141430 A141431 A141432
|
|
|
KEYWORD
| nonn,easy,tabl
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 06 2008
|
| |
|
|
