fork(1) download
  1. n=input();r=0
  2. while n:r+=1;k=t=1;exec't&=(r/k/10*k+r%k)%(r/k%10or r)<1;k*=10;'*r;n-=t
  3. print r
Success #stdin #stdout 0.49s 9120KB
stdin
24
stdout
155