>>687
MM[n_] := MatrixForm[Table[1, {i, n}, {j, n}] - IdentityMatrix[n]]