Mathematica code to calculate and display dominant colors of an image.
Table[Graphics[{c,Rectangle[]}],{c,DominantColors[ExampleData[{"TestImage","Apples"}],6]}]