Dado un número entero p> 1 , encuentre el número entero más pequeño q> p tal que la lista de exponentes en la factorización prima de q sea la misma que la de p , sin importar el orden o el valor de los factores primos.
Ejemplos
La factorización prima de p = 20 es 2 2 x 5 1 . El entero más pequeño mayor que p con exponentes idénticos en su factorización prima es q = 28 = 2 2 x 7 1 .
La factorización prima de p = 2500 es 2 2 x 5 4 . El entero más pequeño mayor que p con exponentes idénticos en su factorización prima es q = 2704 = 2 4 x 13 2 .
Reglas
- Se garantiza que la entrada sea un número entero mayor que 1.
- Este es el código de golf , por lo que gana la respuesta más corta en bytes.
Casos de prueba
Input | Output
------+-------
2 | 3
20 | 28
103 | 107
256 | 6561
768 | 1280
2500 | 2704
4494 | 4510
46552 | 46584
75600 | 105840
code-golf
primes
permutations
Arnauld
fuente
fuente
Respuestas:
Casco , 10 bytes
Pruébalo en línea!
Explantacion
fuente
Mathematica, 61 bytes
Pruébalo en línea!
-4 bytes de @Misha Lavrov
fuente
While
ciclo ess=#;While[f@++s!=f@#];s
.f[x_]
conf@x_
para guardar un byte.f=Last/@#&@*FactorInteger/*Sort
.Pyth , 15 bytes
Pruébalo aquí! o Verificar todos los casos de prueba.
¿Como funciona esto?
Alternativas
Otro 15 byter:
Y un par de alternativas (más largas):
fuente
Jalea ,
1514 bytes1 byte gracias a Erik the Outgolfer.
Pruébalo en línea!
fuente
2#Ṫ
lugarBrachylog , 13 bytes
Pruébalo en línea!
Ha pasado mucho tiempo desde que publiqué una respuesta ...
Explicación
fuente
Python 2 ,
176179171170169 bytesset(f)
fue cambiado asorted(f)
.(n!=r)
a(n>r)
.while N>1
awhile~-N
.Pruébalo en línea!
fuente
Haskell , 107 bytes
Pruébalo en línea! Ejemplo de uso:
f 2500
rendimientos2704
.Gracias a nimi por señalar una falla y guardar un montón de bytes.
Sin
primeFactors
incorporado (117 bytes)Pruébalo en línea!
fuente
Python - 141 bytes
fuente
2500
como entrada;4624
en lugar de2704
.while n-1:
puede serwhile~-n:
.05AB1E , 15 bytes
Pruébalo en línea!
Explicación
fuente
Python 3 + Sympy , 118 bytes
Pruébalo en línea!
fuente