login
A157981
Triangle: r=23;l=7;m(r,l,n)=(r - l)*IdentityMatrix[n] + l*Table[1, {i, 1, n}, {j, 1, n}].
0
1, 23, -1, 480, -46, 1, 9472, -1440, 69, -1, 180224, -37888, 2880, -92, 1, 3342336, -901120, 94720, -4800, 115, -1, 60817408, -20054016, 2703360, -189440, 7200, -138, 1, 1090519040, -425721856, 70189056, -6307840, 331520, -10080, 161, -1
OFFSET
0,2
EXAMPLE
{1},
{23, -1},
{480, -46, 1},
{9472, -1440, 69, -1},
{180224, -37888, 2880, -92, 1},
{3342336, -901120, 94720, -4800, 115, -1},
{60817408, -20054016, 2703360, -189440, 7200, -138, 1},
{1090519040, -425721856, 70189056, -6307840, 331520, -10080, 161, -1},...
MATHEMATICA
M[r_, l_, n_] := (r - l)*IdentityMatrix[n] + l*Table[1, {i, 1, n}, {j, 1, n}];
r = 23; l = 7;
Join[{1}, Table[Expand[CharacteristicPolynomial[M[r, l, n], x]], {n, 1, 10}]];
a = Join[{{1}}, Table[CoefficientList[Expand[CharacteristicPolynomial[M[r, l, n], x]], x], {n, 1, 10}]];
Flatten[a]
CROSSREFS
Sequence in context: A069890 A040550 A040551 * A040523 A040522 A040521
KEYWORD
sign,tabl,uned,less
AUTHOR
Roger L. Bagula, Mar 10 2009
STATUS
approved