Get the prime number between 100 and 150:
create or replace procedure getPrime is
l number(3):=101;
k number(3);
m number(3);
begin
while l < 150 loop
k:= round(sqrt(l),0);--get the sqrt num of L ;
m:=2;
loop if mod(l,m)=0 then -- L is not the prime number
m:=0;
exit;
end if;
m:=m+1;
exit when m>k;
end loop;
if m>0 then --L is prime number now
dbms_output.put_line(l);
end if;
l:= l+2; --even number is prime number
end loop;
end getPrime ;