LogLogPlot doesn't realize that you only want to probe your aD function at integer values of m.
Try this instead, which creates a list of values of your function at the first 5000 integer values of m and then plots just those points.
ListLogLogPlot[Table[aD[m], {m, 1, 5000}]]
which gives this
