END{for(n=1;i=2e4>x=++n;y=0){for(;x?y=10*y+x%10:y~n&&n%++i;)x=int(x/10);if(i==y)print n}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page