ll@N,r;bool b[N+1]={};REP(i,1,N+1)RREP(j,1,N/i+1)if(!b[i*j]&&j==(r=sqrt(j))**2){b[i*j]=1;wtSp(i*j);break;}