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