&/@ 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]
原文：http://www.cnblogs.com/goodmangis/p/4219887.html