for(i,1,500,k:=j:=1;while(j<=k,k=k+j*0**(i%j);j=j+1)if(i<k,i println))