求助，求10000一下的素数的程序！

shiyiming

[color=#FF0000:pv2lno0g][size=150:pv2lno0g]用SAS数据步列出10000以下的素数，写出程序。[/size:pv2lno0g][/color:pv2lno0g]

shiyiming

[code:2gqq1z1e]data aa;
     do i=1 to 1000;
            num=0;
            do j=2 to i-1;
                   if mod(i,j)=0 then num+1;
                end;
                if num=0 then output;
         end;
run;[/code:2gqq1z1e]

shiyiming

data aa;
     do i=2 to 1000;
       num=0;
       do j=2 to i-1;
         if mod(i,j)=0 then num+1;
      end;
      if num=0 then output;
    end;
run;


i应该从2开始，因为1不是素数！