a:Array(3004);range(1,3001){|i|s:i;for(n:i;n>0;n/=10)s+=n%10;a[s]=0;a[i]||i.p;}