for(i in 1:500){k=j=1;while(j<=k){k=k+j*0^(i%%j);j=j+1};if(i<k)write(i,"")}