ll@N,k,r,f[99],e[99];bool b[N+1]={};REP(i,1,N+1){k=1;REP(m,Factor(i,f,e))if(e[m]%2>0)k*=f[m];RREP(j,1,N/k+1)if(!b[k*j]&&j==(r=sqrt(j))**2){b[k*j]=1;wtSp(k*j);break;}}