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,6

Links

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

Mathematica

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

Crossrefs

Sequence in context: A349909 A064952 A255070 * A194272 A285764 A025776

Adjacent sequences: A175998 A175999 A176000 * A176002 A176003 A176004

Keyword

sign

Author

José María Grau Ribas, Apr 05 2010

Status

approved