Rosetta Stone Code Challenge
424 425: Haskell, Python 2, Perl

As they should for a true Rosetta comparison, all three programs work the same way, taking input from the first command-line argument and building up the list with the same rules, and variable names, where possible.

Haskell, 171

import System.Environment
main=do i&lt;-getArgs;putStr.show$[n|n&lt;-[0..777777],all(`notElem`"5689").show$n,all(\d-&gt;n`div`d`mod`100`notElem`13:[30..39])[1,1000]]!!(read.head$i)


Python 2, 156

import sys
print[n for n in range(777778)if all([c not in"5689"for c in str(n)])and all([n/d%100not in[13]+range(30,40)for d in[1,1000]])][int(sys.argv[1])]


Perl, 97 98

$i=@ARGV[0];die if $i&gt;30275;for(0..777777){push@n,$_ if!(/[5689]/ or/(13|3.)(|...)$/)}print@n[$i]