How to mark special items in a List? e.g. Range[5]^2 + 1 = {2, 5, 10, 17, 26} I want to output {Framed[2], Framed[5], 10, Framed[17], 26} , how to do?
More , how to mark prime vertexs in a Graph plot?
If[PrimeQ[#], Style[#, Red], #] & /@ (Range[25]^2 + 1)
NOT be: If[PrimeQ[#], Style[#, Red], #] & /@ Range[25]^2 + 1
Range[5]^2 + 1 /. p_?PrimeQ -> Framed[p]
Exercise for the interested student: use the following functions to solve this problem...
PrimeQ
Map
If
;-)
