计算某个范围之内的所有质数

计算某个范围之内的所有质数
 /*
--功能：计算某个范围之内的所有质数
--作者：
--日期：20180927
--语言：t-sql for sql server 2012 sp4
*/
DECLARE @n INT= 10000;
--计算自然数的最大值
DECLARE @d INT= 2;
 --除数，检验@n能够被2-ceiling(power(@i,0.5))之间的数整除
DECLARE @bit BIT;
 --整除标识，如果能够被@d整除则=0，如果不能够被@d整除则=1
DECLARE @i INT= 1;
 --1-@n之间的自然数
WHILE @i <= @n
    BEGIN
        SET @d = 2;--@i每次变更需要@d重新从2开始
        SET @bit = 1;--@i每次变更需要@bit重新从1开始
        WHILE @d <= CEILING(POWER(@i * 1.0, 0.5))
            AND @bit = 1
            BEGIN
                SET @bit = CASE WHEN @i IN ( 1, 2 ) THEN 1
                                WHEN @i % @d <>0 THEN 1
                                ELSE 0
                           END;
                SET @d += 1;
            END; 
        IF @bit = 1
            PRINT @i;
        IF @i <= 2
            SET @i += 1;--2以内步进值为1
        ELSE
            SET @i += 2;--3以上步进值为2,除了2之外所有的偶数都不是质数
    END;