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
KEYWORD
sign
AUTHOR
José María Grau Ribas, Apr 05 2010
STATUS
approved