ll@T;REP(T){ll@A,@B,C[]={A,B,B-A-1};rep[C](c,3)T=c/(Isqrt(c)+1),c=sum[i,1,4d4]((i<=T)*c/i+(i*i<=c)*i*(c/i-c/(i+1)));wt(C[1]-*C+-C[2]);}