topic Re: add prime number in SAS Programming

add prime number

aanan1417 — Mon, 05 Jul 2021 11:41:06 GMT

i want to add prime number 2 to 10000 using sas

Re: add prime number

Ksharp — Mon, 05 Jul 2021 12:21:56 GMT

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;

Re: add prime number

Ksharp — Mon, 05 Jul 2021 12:23:54 GMT

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;