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

Author

José María Grau Ribas, Apr 05 2010

Keywords

• sign

Programs

Mathematica

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