ll@n,a[n]{};rep(i,n)a[(-!a[i]*Isqrt(n/-~i)..-1)**2*-~i-1]=(1..)**2*-~i;wt(a(n));