login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A123966 Triangle A124029 with the (0,0) entry replaced by 4. 1
4, 4, -1, 15, -8, 1, 56, -46, 12, -1, 209, -232, 93, -16, 1, 780, -1091, 592, -156, 20, -1, 2911, -4912, 3366, -1200, 235, -24, 1, 10864, -21468, 17784, -8010, 2120, -330, 28, -1, 40545, -91824, 89238, -48624, 16255, -3416, 441, -32, 1, 151316, -386373, 430992, -275724, 111524, -29589, 5152, -568, 36 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

The entry for the empty matrix in row 0 and column 0 is replaced by 4 in comparison to the variant in A124029.

LINKS

Table of n, a(n) for n=0..53.

EXAMPLE

4;

4, -1;

15, -8, 1;

56, -46,12, -1;

209, -232, 93, -16, 1;

780, -1091, 592, -156, 20, -1;

2911, -4912, 3366, -1200, 235, -24, 1;

10864, -21468, 17784, -8010, 2120, -330, 28, -1;

MATHEMATICA

Clear[M, T, d, a, x]; T[n_, m_] = If[ n == m, 4, If[n == m - 1 || n == m + 1, -1, 0]]; M[d_] := Table[T[n, m], {n, 1, d}, {m, 1, d}]; Table[M[d], {d, 1, 10}]; Table[Det[M[d] - x*IdentityMatrix[d]], {d, 1, 10}]; a = Join[{{3}}, Table[CoefficientList[Det[M[d] - x*IdentityMatrix[d]], x], {d, 1, 10}]]; Flatten[a]

CROSSREFS

Cf. A123343, A159764.

Sequence in context: A102323 A145902 A124028 * A079507 A098364 A116866

Adjacent sequences:  A123963 A123964 A123965 * A123967 A123968 A123969

KEYWORD

tabl,sign

AUTHOR

Gary W. Adamson and Roger L. Bagula, Oct 28 2006

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 19:03 EDT 2020. Contains 337953 sequences. (Running on oeis4.)