fakedata = Transpose[{Range[500], RandomReal[4000, {500}]}];
    ListLinePlot[fakedata, 
     Ticks -> {Automatic, {#, ScientificForm@#} & /@  Range[0., 4000., 1000.]}, 
     PlotRange -> {0, 4500}]

![enter image description here][1]


  [1]: https://i.sstatic.net/lMhWe.png