72.m

total=0
For[d=1000000,d>1,d--,total+=EulerPhi[d]]
total

(* 303963552391 *)