login
A176005
Det(M) where M is an n X n matrix with M(i,j) = floor(cos(i-j)).
1
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
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
KEYWORD
sign
AUTHOR
STATUS
approved