set serveroutput on
declare
flag boolean;
begin
for i in 2..500 loop
flag:=true;
for j in 2..trunc(i/2) loop
if(mod(i,j)=0) then
flag:=false;
exit;
end if;
end loop;
if(flag) then
dbms_output.put_line(i);
end if;
end loop;
end;
运行结果:
中间太长了,略过。