In[]:=
XY=Table[{w,Log[E^(2.34*w/52)]},{w,0,52}];​​ListPlot[​​XY,​​PlotStyle{Black,PointSize[0.02]},​​AxesLabel{"w","Log[y]"},​​AxesStyle{Black,12},​​ImageSizeSmall​​]
Out[]=