Table[If[PrimeQ[n],Framed[n],n],{n,20}]