add prime number

[aanan1417]

i want to add prime number 2 to 10000 using sas

[Ksharp · Accepted solution]

data prime;
array p{10000} _temporary_ ;
do i=1 to 10000;
 p{i}=i;
end;

do i=2 to int(sqrt(10000));
  if p{i} ne . then do;
    do j=i+1 to 10000;
      if mod(p{j},p{i})=0 then p{j}=.;
	end;
  end;
end;

do i=1 to 10000;
  if p{i} ne . then do;prime=p{i};output;end;
end;
run;

[Ksharp]

This could get you faster .

data prime;
array p{10000} _temporary_ ;
do i=1 to 10000;
 p{i}=i;
end;

do i=2 to int(sqrt(10000));
  if p{i} ne . then do;
    do j=i to 10000 by p{i};
      if mod(p{j},p{i})=0 and i ne j then p{j}=.;
	end;
  end;
end;

do i=1 to 10000;
  if p{i} ne . then do;prime=p{i};output;end;
end;
run;