在SAS中，我应该使用什么代码来创建1-50之间的第一个质数？

data _null_;
    array primes[50] _temporary_;
    do i = 2 to 50;
        is_prime = 1;
        do j = 2 to sqrt(i);
            if mod(i, j) = 0 then do;
                is_prime = 0;
                leave;
            end;
        end;
        if is_prime then do;
            primes[i] = i;
            leave;
        end;
    end;
    first_prime = min(of primes[*]);
    put first_prime;
run;