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