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,"")}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page