pl/sql oracle

[bucefalus]

Ayuda con un procedure.
Que tal soy nuevo en esto de la programacion y estoy trabajando para obtener los numeros primos en pl/ sql y tengo este codigo:

create or replace procedure pri ( n in number)
is
primo number :=1;
begin
for i in 3..n loop
primo := 1;
for j in 2..i-1 loop
if mod (i,j) = 0 then
primo := 0;
end if;
end loop;
if (primo = 1)then
imprimir(i);
end if;
end loop;
end;
/

solo que me genera los primos que estan en el rango del parametro n y no los n primeros....
alguna idea para modificarlo???

Saludos