Select Code to Download

sub sieve3 {
    grep{@_[map$a*$_,$_..@_/($a=$_)]=0if$_[$_]>1}@_=0..pop
} #                  ^^
...
for( @ARGV ) {
    print "$_: ",join(" ",sieve3($_)),$/;
}

2=5-3(x2)    # 3..5, 5..7
4=11-7(x3)   # 7..11, 13..17, 19..23
6=29-23(x7)
...
96=360749-360653
112=370373-370261
114=492227-492113