A176005 Det(M) where M is an n X n matrix with M(i,j) = floor(cos(i-j)).

1, 1, 0, -1, -3, 0, 3, 11, 24, 45, 75, 125, 175, 245, 91, 24, 0, -24, -5, -1, 0, 1, -3, -7, -11, -15, -19, -23, -16, -9, -5, 0, 0, 0, -5, -11, -24, -37, -35, -33, -27, -21, -11, -1, 13, 0, -13, -27, -41, -55, -69, 0, 69, 221, 485, 344, 240, 136, 69, 27, -15, -32, -36

Offset

1,5

Links

Table of n, a(n) for n=1..63.

Mathematica

M[n_]:=Table[Floor[Cos[i - j]], {i, n}, {j, n}]; aux=Table[Det[M[n]], {n, 150}]; ListPlot[aux] (*chaotic graph*)

Crossrefs

Sequence in context: A327245 A157525 A157521 * A211963 A275080 A128252

Adjacent sequences: A176002 A176003 A176004 * A176006 A176007 A176008

Keyword

sign

Author

José María Grau Ribas, Apr 05 2010

Status

approved