Generierung einer Matrix mit ganzzahligen Eigenwerten

Clear[A];
While[Not[FreeQ[Map[IntegerQ, Eigenvalues[A]], False]], 
        A = Table[
            Random[Integer, {-5, 
                5}], {3}, {3}]];
A

Eigenvalues[A]

Eigensystem[A]