/usr/bin/perl '-le$x=1;{map$x%$_||redo,2..$x++;print$x;redo}'