/usr/bin/perl -le'X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);print$x}'