|
| |
|
|
A141433
|
|
Triangle t(n,m)= (m-1)*(3*n-m) ready by rows, 1<=m<=n.
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Row sums are 0, 4, 19, 52, 110, 200, 329, 504, 732, 1020,.. = n*(7n-2)*(n-2)/6.
|
|
|
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;
|
|
|
MAPLE
| A141433 := proc(n, m) (m-1)*(3*n-m) ; end proc:
seq(seq(A141433(n, m), m=1..n), n=1..18) ; # R. J. Mathar, Sep 14 2011
|
|
|
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: A198741 A195286 A200501 * A019111 A103554 A076261
Adjacent sequences: A141430 A141431 A141432 * A141434 A141435 A141436
|
|
|
KEYWORD
| nonn,easy,tabl
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 06 2008
|
| |
|
|
