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