Plot[{85650*n(Ln[85650*n]+2Ln[Ln[85650*n]]),n(n-1)/2}, {n,1,10000000}]