Histogram[VertexDegree[RandomGraph[BarabasiAlbertGraphDistribution[10^4,3]]],ColorFunction->"Rainbow",ScalingFunctions->{"Log","Log"}]