@echo off
setlocal ENABLEDELAYEDEXPANSION
:a
set /a num+=1
if %num%==1 goto a
for %%a in (2 3) do if %num%==%%a echo %%a&goto a
if %num%==1000 pause>nul&exit
set /a num2=num-1
for /l %%b in (2 1 %num2%) do (
set /a tp=%num%%%%%b
if !tp!==0 set tp2=a
)
set tp2=&if "%tp2%"=="" echo %num%
goto a
复制代码

@echo off&setlocal enabledelayedexpansion
for %%i in (0 2 4 5 6 8) do set "_%%i=a"
echo 1-1000內的素數如下：>素數.txt
for /l %%a in (1,1,1000) do (
     set "str=%%i"
     if not defined _!str:~-1! (
       set /a a=%%a/2+1,num=0
       call :lp %%a
     )
)
start 素數.txt
goto :eof
:lp
for /l %%i in (1,1,%a%) do (
     set /a b=%1/%%i*%%i
     if !b! equ %1 set /a num+=1
     if !num! equ 2 goto :eof
)
if %num% lss 2 echo %1 >>素數.txt
复制代码

@echo off
setlocal enabledelayedexpansion
for /l %%i in (3 2 1000) do (
	set flag=0
	for /l %%j in (3 2 37) do (
		set /a var=%%i%%%%j
		if !var! EQU 0 set /a flag+=1
	)
	if !flag! LEQ 1 echo %%i
)

pause>nul
复制代码

@echo off 2>nul 3>nul
setlocal enabledelayedexpansion
for /l %%i in (3 2 1000) do (
	set flag=0
	for /l %%j in (3 2 37) do set /a 1/^(%%i%%%%j^) ||set/a flag+=1
	if !flag! LEQ 1 echo %%i
)

pause>nul
复制代码

@echo off
setlocal enableDelayedExpansion
>ss.txt echo 2
for /l %%i in (3 2 1000) do (
　for /f %%j in (ss.txt) do (
　　set/a mod=%%i%%%%j
　　if !mod! equ 0 set flag=1
　)
　if defined flag (set flag=) else (>>ss.txt echo %%i)
)
type ss.txt
pause
goto :eof
复制代码

@echo off
setlocal enabledelayedexpansion
echo 1
echo 2
set/a num=2
for /l %%i in (3 2 1000) do (
 call :test %%i
 if !flag!==1 echo %%i&set/a num+=1
)
echo 1~1000内共有素数 %num% 个。
pause>nul &goto :eof

:test
 set /a flag=1
 set /a b=%1/2
 set /a count=0
 for /l %%a in (1 1 !b!) do (
  set /a yushu=%1 %% %%a
  if !yushu! equ 0 set /a count=!count!+1
  if !count! gtr 1 (set /a flag=0 & goto :eof)
 )
复制代码

@echo off
setlocal enableDelayedExpansion
set str=2&set/a num=1
echo 2
for /l %%i in (3 2 1000) do (
for %%j in (!str!) do (
　set/a mod=%%i%%%%j
　if !mod! equ 0 set flag=1
)
if defined flag (set flag=) else (echo %%i&set str=!str! %%i&set/a num+=1)
)
echo 1000以内的素数共有 %num% 个。
pause>nul
goto :eof
复制代码

@echo off
setlocal enableDelayedExpansion
set/p x=请输入需求 多大数字内的质数
set str=2&set/a num=1
echo 2
for /l %%i in (3 2 !x!) do (
        for %%j in (!str!) do (
            set/a mod=%%i%%%%j
         　if !mod! equ 0 set flag=1
        )
       if defined flag (set flag=) else (
                                    echo %%i
                                    set/a n=%%i*%%i
                                    set/a num+=1
                                    if !n! lss !x! set str=!str! %%i
                                    )
)
echo !x!以内的素数共有 %num% 个。
pause
复制代码

@echo off
setlocal EnableExtensions
setlocal EnableDelayedExpansion

REM 时间：20:36 2011-01-12
REM 功能：求1000以内的质数.效率一般。

set /a n=1 
set /a m=1
set /a p%n%=2
echo 2
set "flag="
for /L %%a in (3,2,1000) do (
	call :PRIME %%a !m! flag
	if "!flag!"=="TRUE" (
		echo %%a
		set /a n+=1
		set /a temp=%%a*%%a
		if !temp! lss 1000 (
			set /a m+=1
			set p!m!=%%a
		)
	)
)
echo 1000以内共有%n%个质数
pause
goto :EOF	
	
:PRIME
for /l %%a in (1,1,!m!) do (
	set /a yu=%1%%!p%%a!
	if "!yu!"=="0" (
		set "%3=FALSE"
		goto :EOF
	)
)
set "%3=TRUE"
复制代码

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION

REM Author: Demon
REM Date: 2011/5/29
REM Website: http://demon.tw
REM Algorithm: Sieve of Eratosthenes
REM Reference: http://en.wikipedia.org/wiki/Sieve_of_Eratosthenes

SET /A limit = 1000
SET /A prime = 2

CALL :Init
CALL :SievePrime
CALL :Display
PAUSE & GOTO :EOF

:Display
    FOR /L %%i IN (2, 1, %limit%) DO (
        SET t=!arr[%%i]!
        IF !t! NEQ 0 ECHO !t!
    )
GOTO :EOF

:Init
    FOR /L %%i IN (1, 1, %limit%) DO SET arr[%%i]=%%i
GOTO :EOF

:SievePrime
    SET /A pow = prime * prime
    IF %pow% LSS %limit% (
        SET /A n = prime * 2
        FOR /L %%i IN (!n!, %prime%, %limit%) DO SET arr[%%i]=0
        CALL :NextPrime
        GOTO :SievePrime
    )
GOTO :EOF

:NextPrime
    SET /A prime += 1
    FOR /L %%i IN (%prime%, 1, %limit%) DO (
        IF !arr[%%i]! NEQ 0 SET /A prime = %%i & GOTO :EOF
    )
GOTO :EOF
复制代码

@echo off&setlocal ENABLEDELAYEDEXPANSION
if %1.==. (set i=100) else set /a i=%1||exit/b
set time_0=!time!
set "p=2 3 5 7 11 13 17 19"
for %%a in (!p!) do (if %%a gtr !i! (exit/b) else echo %%a)
set i_0=!i:~0,-1!
set "p=3 7 11 13 17 19"
for /l %%a in (2,1,!i_0!) do (
    for %%b in (1 3 7 9) do (
        set p_0=!p!
        set /a x_%%b=0
        for %%c in (!p_0!) do (
            if !x_%%b! equ 0 (
               set /a p_1=%%a%%b %% %%c
               if !p_1! equ 0 set /a x_%%b=1,p_0=1
            )
        )
        if %%a%%b gtr !i! (echo 开始时间:!time_0!&echo 结束时间:!time!&exit/b) else (
           if !x_%%b! equ 0 set "p=!p! %%a%%b"&echo %%a%%b
        )
    )
)
exit/b
复制代码