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;}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page