for(i in 1:2e3){r=9;n=i;while(r>6){r=0;while(n>0){r=r+(n%%10)^2;n=n%/%10};n=r};if(r==1)write(i,T)}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page