%I #9 Mar 31 2012 10:26:26
%S 0,0,0,0,-1,-2,-3,-3,-3,-3,-4,-5,-6,-6,-6,-6,-7,-8,-9,-9,-9,-9,-10,
%T -11,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,-12,
%U -12,-12,-12,-12,-12,-12,-12,-13,-14,-15,-16,-17,-18,-19,-20,-21,-22,-23
%N Det(M) where M is an n X n matrix with M(i,j) = floor(sin(i-j)).
%t M[n_] := Table[Floor[Sin[i - j]], {i, n}, {j, n}];aux=Table[Det[M[n]], {n, 150}]; ListPlot[aux]
%K sign
%O 1,6
%A _José María Grau Ribas_, Apr 05 2010
|