Select Code to Download

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

for($x=1;;){map$x%$_||next,2..$x++;warn$x}