function[V]=fica_rasata(i,j,Mat)
flag=0;
div=2;
contaprimi=0;
V=zeros;
while div<Mat(i,j) && flag==0
    if mod(Mat(i,j),div)==0
        flag=1;
    else
        div=div+1;
    end
    if flag==0
        contaprimi=contaprimi+1;
        V(contaprimi)=Mat(i,j);
    end
end