OFFSET
0,7
COMMENTS
Row sums are -1, 0, 1, 0, -4, -18, -43, -108, -228, -482, -987...
FORMULA
T(n,k) = T(n,n-k).
EXAMPLE
-1;
0, 0;
1, -1, 1;
2, -2, -2, 2;
3, -3, -4, -3, 3;
4, -4, -9, -9, -4, 4;
5, -5, -13, -17, -13, -5, 5;
6, -6, -20, -34, -34, -20, -6, 6;
7, -7, -26, -55, -66, -55, -26, -7, 7;
8, -8, -35, -81, -125, -125, -81, -35, -8, 8;
9, -9, -43, -119, -208, -247, -208, -119, -43, -9, 9;
MAPLE
MATHEMATICA
Clear[p, x, n] p[x_, n_] = Sum[(GCD[n, i] - Binomial[n, i])*x^i, {i, 0, n}]; Table[ExpandAll[p[x, n]], {n, 1, 10}]; a = Table[CoefficientList[p[x, n], x], {n, 1, 10}]; Flatten[a]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Jul 11 2008
EXTENSIONS
New name, editing, and missing leading terms added. - R. J. Mathar, Jan 17 2013
STATUS
approved