Plot[(∑_(n = 1)^50) Sin[(n) x]/n, {x, -3 π, 
          3  π}, PlotStyle  ->  RGBColor[1, 0, 0]];