The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; table; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Table of n, a(n) for n=0..35. 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 Adjacent sequences: A157978 A157979 A157980 * A157982 A157983 A157984 KEYWORD sign,tabl,uned,less AUTHOR Roger L. Bagula, Mar 10 2009 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 22 21:11 EDT 2024. Contains 374544 sequences. (Running on oeis4.)