/usr/bin/perl '-lefor(my$x=1;;){map$x%$_||next,2..$x++;print$x}'