&/@ Shorthand notation for Map
If[PrimeQ[#], Framed@Style[#, Orange, Bold, 15], #] & /@ Range[250]
Grid@Partition[If[PrimeQ[#], Tooltip[Framed@Style[#, Orange, Bold, 15], "Prime!"], #] & /@Range[250], 10]