Also you are dividing by 0, when T is 0. Try
Plot[5/2 + (3354/t)^2 (E^(-3354/t)/(1 - E^(-3354/t))^2), {t, 1, 2500}]
The base of natural logarithms in Mathematica is E, not e.