login
A140056
Triangle of coefficients: f(x,y,n) = x^n - y^(n-1)*x - y^n; p(x,y,z,n) = f(x,y,n) + f(y,z,n) + f(z,x,n).
0
-3, -2, -1, -1, -2, -1, -1, -1, -1, -1, 0, -1, -1, -1, 0, 0, -1, -1, -1, 0, 0, 0, -1, -1, -1, 0, 0, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, 0, -1, -1, -1, 0, 0, 0, 0, 0, 0, 0, -1
OFFSET
1,1
COMMENTS
Row sums are all -3.
LINKS
Eric Weisstein's World of Mathematics Klein Quartic.
FORMULA
f(x,y,n)=x^n - y^(n - 1)*x - y^n; p(x,y,z,n)=f(x,y,n)+f(y,z,n)+f(z,x,n);
EXAMPLE
{-3},
{-2, -1},
{-1, -2},
{-1, -1, -1},
{-1, -1, 0, -1},
{-1, -1, 0, 0, -1},
{-1, -1, 0, 0, 0, -1},
{-1, -1, 0, 0, 0, 0, -1},
{-1, -1, 0, 0, 0, 0, 0, -1},
{-1, -1, 0, 0, 0, 0, 0, 0, -1},
{-1, -1, 0, 0, 0, 0, 0, 0, 0, -1}.
Polynomials before lower to x only are:
-3,
-x - y - z,
-xy - x z - y z,
-xy^2 - x^2 z - y z^2,
-x y^3 - x^3 z - y z^3,
-x y^4 - x^4 z - y z^4,
...
MATHEMATICA
f[x_, y_, n] = If[n > 0, x^n - y^(n - 1)*x - y^n, -1]; p[x_, y_, z_, n_] = f[x, y, n] + f[y, z, n] + f[z, x, n];
Table[ExpandAll[p[x, y, z, n]], {n, 0, 10}];
a = Table[CoefficientList[p[x, y, z, n] /. y -> 1 /. z -> 1, x], {n, 0, 10}];
Flatten[a]
Table[Apply[Plus, CoefficientList[p[x, y, z, n] /. y -> 1 /. z -> 1, x]], {n, 0, 10}];
CROSSREFS
Sequence in context: A284993 A292068 A350942 * A240239 A247044 A083663
KEYWORD
uned,tabl,sign
AUTHOR
Roger L. Bagula, Jun 14 2008
STATUS
approved