data a;
do i = 1 to 100;
do j = 2 to i-1;
if mod(i, j) = 0 and j < i-1 then leave;
if j = i-1 then output;
end;
end;
run;
data a;
do i = 1 to 100;
do j = 2 to i-1;
if mod(i, j) = 0 and j < i-1 then leave;
if j = i-1 then output;
end;
end;
run;