Select Code to Download

@_=(1);L:for(2..100){$i=0;while(@_>++$i){next L if!($_%$_[$i])}push@_,
+$_}

@_=(1);L:for(2..100){$i=-@_;while(++$i){next L if!($_%$_[$i])}push@_,$
+_}