ll@N;wt(N*(N-1)/2-sum[i,2,N+1](EulerPhi(i)+N/i-1));