ゴメン。Perlだったか。

$in = 500;
@after = qw(0 1 2 3 ... z);

$a = int($in / 36);
$b = $in % 36;

$out = $atter[$a].$after[$b];