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

0, 0, 0, 0, -1, -2, -3, -3, -3, -3, -4, -5, -6, -6, -6, -6, -7, -8, -9, -9, -9, -9, -10, -11, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -12, -13, -14, -15, -16, -17, -18, -19, -20, -21, -22, -23

Offset: 1

Author

José María Grau Ribas, Apr 05 2010

Keywords

• sign

Programs

Mathematica

M[n_] := Table[Floor[Sin[i - j]], {i, n}, {j, n}];aux=Table[Det[M[n]], {n, 150}]; ListPlot[aux]