@echo off
:: Algoritmo de numeros primos, Leo Gutierrez R.
:code
set /p "numero=Numero : "
if not defined numero (goto:code)
set /a "contador=1"
set /a "divisores=0"
set /a "numero_=numero+1"
set /a "suma=0"
:bucle
if %contador% equ %numero_% (goto:end)
set /a "operacion=%numero% %% %contador%"
if %operacion% equ 0 (
set /a "divisores+=1"
set /a "suma+=%contador%"
)
set /a "contador+=1"
goto:bucle
:end
set /a "_=%numero%+1"
if %suma% equ %_% (echo.Es primo) else (echo.No es primo)
goto:eof

C:\>code
Numero : 2
Es primo

C:\>code
Numero : 4
No es primo

C:\>code
Numero : 19
Es primo

C:\>code
Numero : 23
Es primo

C:\>code
Numero : 3
Es primo

C:\>code
Numero : 5
Es primo

C:\>

@echo off
::Descomposicion En Factores Primos
setlocal enabledelayedexpansion
 
Set /a "C=%1*1"
If not %C% EQU %1 (Echo.No Ha Introducido un Numero..&Goto :Eof)
If "%1"=="1" (Echo.1&Goto :Eof)
Set Lim=%1
for /l %%n in (1,1,%Lim%) do (
call :EsPrimo %%n
if "!Primo!"=="True" Call :DescPrimo %Lim% %%n
)
Echo.%Op:~1%
Goto :Eof
 
:EsPrimo
set divisores=
set "numero=%1"
for /l %%_ in (1,1,%numero%) do (
set /a "operacion=%numero%%%%%_"
if !operacion! equ 0 set /a "divisores+=1"
)
if %divisores% equ 2 (Set Primo=True) else (Set Primo=False)
Goto :Eof
 
:DescPrimo
Set Val=%1
:Desc2
Set Var=%Op%
Set /a C=%Var:~1%
If %C% GEQ %Lim% Goto :Eof
Set /a Mod=(%Val%)%%(%2)
If %Mod% EQU 0 set Op=%Op%*%2&Set /a Val=(%Val%)/(%2)&Goto :Desc2
Goto :Eof