A Mnemonic for Remembering 23940
Perl, 87 84

open A,f;"@ARGV"eq s/[cs]h/j/gr=~y/stnmrljkfpzdcgqvb\0-z/0-90177789/dr&amp;&amp;print for&lt;A&gt;


Takes input in as the command line parameter:

$perl m.pl 23940


Can be made somewhat shorter if the word list would be allowed on the standard input:

$perl -lnE'INIT{$;=pop}$;eq s/[cs]h/j/gr=~y/stnmrljkfpzdcgqvba-z/0-90177789/dr&amp;&amp;say' 99 &lt;f