In[1]:=
g[d_] := Select[Range[Floor[d/3] + 1, Ceiling[d/2] - 1],
   CoprimeQ[#, d] &];
Sum[Length[g[d]], {d, 1, 12000}] // Timing

Out[1]= {10.3822, 7295372}