for(i in a<-1:3e3){s=n=i;while(n>0){s=s+n%%10;n=n%/%10};a[s]=0;if(a[i])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