Revision 68e5d9bb-bf9e-42d5-99ff-b1946ff9fe0f - Code Golf Stack Exchange

# Wolfram Language 103 bytes

Uses 1-indexing.
I'm surprised it required so much code.

 (k=1;u=Union;n=2;l=Length;While[k<#,If[l[a=Join@@u/@IntegerDigits@Divisors@#]==l@u@a&@n,k++];n++];n-1)&