Solved: add prime number - SAS Support Communities

🔒 This topic is solved and locked. Need further help from the community? Please sign in and ask a new question.

Quartz | Level 8

Quartz | Level 8

add prime number

Posted 07-05-2021 07:41 AM (987 views)

i want to add prime number 2 to 10000 using sas

1 ACCEPTED SOLUTION

Accepted Solutions

Super User

Super User

Re: add prime number

Posted 07-05-2021 08:14 AM (976 views) | In reply to aanan1417

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;

View solution in original post

2 REPLIES 2

Super User

Super User

Re: add prime number

Posted 07-05-2021 08:14 AM (977 views) | In reply to aanan1417

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;

Super User

Super User

Re: add prime number

Posted 07-05-2021 08:20 AM (964 views) | In reply to aanan1417

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;