$,=$/;for$a(2..447){$}=$a;$h[$}]=$}while 2e5>($}*=$a)}print grep$_,@h