Perl - 78 --------- Here is a Perl one-liner to do it. perl -MLingua::EN::Numbers=num2en -nE'while($n<=$_){$n++&&say$i if num2en($i)!~/e/;$i++}' <(echo 5) It is 50 characters plus 1 for the `M`, 1 for the `n`, and 26 for `Lingua::EN::Numbers=num2len`. Using [Lingua::EN::Numbers][1] from CPAN. Here are [instructions][2] for installing CPAN modules. [1]: http://search.cpan.org/perldoc/Lingua::EN::Numbers [2]: http://www.cpan.org/modules/INSTALL.html