Calcule el mínimo modo que sea ​​primo (OEIS A051935)

12

Antecedentes

Considere la siguiente secuencia ( A051935 en OEIS):

  • Comience con el término .2
  • Encuentre el número entero más bajo mayor que modo que sea ​​primo.2 2 + nn22+n
  • Encuentre el número entero más bajo mayor que modo que sea ​​primo, etc. n 2 + n + n nn2+n+n

Una definición más formal:

an={2if n=0min{xNx>an1 and (x+i=0n1ai) is prime}otherwise

Los primeros términos de la secuencia son (refiérase a estos como casos de prueba):

2, 3, 6, 8, 10, 12, 18, 20, 22, 26, 30, 34, 36, 42, 44, 46, 50, 52, 60, 66, 72, 74, ...

Tarea

Su tarea es generar esta secuencia de cualquiera de las siguientes maneras:

  • Produzca sus términos indefinidamente.
  • Dado n , salida an ( nth término, 0 o 1 indexado).
  • Dado n , salida {a1,a2,,an} (primeros n términos).

Puede competir en cualquier lenguaje de programación y puede tomar entradas y proporcionar salidas a través de cualquier método estándar , mientras toma nota de que estas lagunas están prohibidas por defecto. Este es el , por lo que gana el envío más corto (en bytes) para cada idioma .

Sr. Xcoder
fuente
44
Consejos para evitar al escribir desafíos: los números primos . Podrías haber usado algo más que la primalidad.
Okx
3
@Okx Tenía en mente un par de razones cuando elijo primalidad esta vez: 1) Hay algunos algoritmos inteligentes que son específicos de esta secuencia, como el que implementó Dennis 2) Ya hay una entrada OEIS para esto
Sr. Xcoder

Respuestas:

4

Brachylog , 13 bytes

~l.<₁a₀ᵇ+ᵐṗᵐ∧

Pruébalo en línea!

La salida es la lista de los primeros n términos de la secuencia.

?~l.<₁a₀ᵇ+ᵐṗᵐ∧    Full code (? at beginning is implicit)

?~l.              Output is a list whose length is the input
    <₁            Output is an increasing list
      a₀ᵇ+ᵐ       And the cumulative sum of the output
           ṗᵐ     Consists only of prime numbers
             ∧    No further constraints on output

Explanation for a₀ᵇ+ᵐ:
a₀ᵇ               Get the list of all prefixes of the list
                  Is returned in increasing order of length
                  For eg. [2, 3, 6, 8] -> [[2], [2, 3], [2, 3, 6], [2, 3, 6, 8]]
   +ᵐ             Sum each inner list  -> [2, 5, 11, 19]
sundar - Restablecer a Monica
fuente
4

Jalea , 11 9 bytes

0Ḥ_ÆnɗСI

Este es un programa completo que toma n como argumento e imprime los primeros n términos de la secuencia.

Pruébalo en línea!

Cómo funciona

0Ḥ_ÆnɗСI  Main link. Argument: n

0          Set the return value to 0.
      С   Accumulating iterate. When acting on a dyadic link d and called with
           arguments x and y, the resulting quicklink executes
           "x, y = d(x, y), x" n times, returning all intermediate values of x.
           Initially, x = 0 and  y = n.
     ɗ       Drei; combine the three links to the left into a dyadic chain.
 Ḥ             Unhalve; double the left argument.
  _            Subtract the right argument.
   Æn          Compute the next prime.
           This computes the partial sums of the sequence a, starting with 0.
        I  Increments; compute the forward differences.
Dennis
fuente
3

05AB1E v2 , 10 bytes

2λλOD₁+ÅNα

Pruébalo en línea!

Esto solo funciona en la versión no heredada, la reescritura de Elixir. Emite una secuencia infinita de enteros. Hay algunos errores con la prueba principal que se han corregido en las últimas confirmaciones, pero que aún no están en vivo en TIO. Sin embargo, funciona localmente. Aquí hay un GIF de su ejecución en mi máquina, modificado para generar los primeros términos en lugar de la secuencia completa.

Cómo funciona

Define una secuencia infinita recursiva con el caso base . La estructura se encuentra entre las nuevas características muy interesantes de 05AB1E. En pocas palabras, toma una función , estableciendo al argumento entero dado, en este caso .a ( n ) a ( 0 ) 22λa(n)a(0)2

λO

En esta parte del código, λel rol de es diferente. Ya dentro de un entorno recursivo, genera , la lista de todos los resultados anteriores. Luego, los resume.[a(0),a(1),,a(n1)]O

D₁+

Duplique la suma para su uso posterior y agregue a la segunda copia.a(n1)

ÅN

Genera el primo más bajo estrictamente mayor que la suma anterior.

α

Finalmente, recupere la diferencia absoluta entre el primo calculado anteriormente y la primera copia de la suma calculada anteriormente (la suma de todas las iteraciones anteriores).

La secuencia se imprime implícitamente en STDOUT indefinidamente.

Sr. Xcoder
fuente
2

Perl 6 , 45 bytes

2,{first (*+@_.sum).is-prime,@_[*-1]^..*}...*

Pruébalo en línea!

Devuelve una lista perezosa que genera la secuencia sin fin.

Explicación:

Esto utiliza el operador de secuencia ...que define la secuencia como:

2,  # The first element is 2
  {  # The next element is:
    first  # The first value that:
          (*+@_.sum).is-prime,  # When added to the sum is a prime
          @_[*-1]^..*  # And is larger than the previous element
  }
...*  # And continue the sequence indefinitely
Jo King
fuente
2

JavaScript (ES6), 63 bytes

Devuelve el término , 1 indexado.nth

n=>(k=0,s=1,g=d=>s%d?g(d-1):d<2?--n?g(s-=k-(k=s)):s-k:g(s++))()

Pruébalo en línea!

Arnauld
fuente
2

Pyth ,12 11 bytes

.f&P-;Z=-;Z

Pruébalo en línea!

Guardado 1 byte gracias a isaacg.

Genera los primeros nnúmeros de este tipo, utilizando un índice basado en 1.

.fencuentra los primeros kenteros que satisfacen un criterio particular a partir de cero. Aquí, el criterio es que el primo anterior que calculamos ;, más el número actual Z, es primo ( P). Si es así, también actualizamos el último primo calculado utilizando el comportamiento de cortocircuito de la lógica y la función ( &). .fLa variable predeterminada de Desafortunadamente es la Zque cuesta un byte en la actualización.

El truco que Isaac descubrió fue almacenar la negación del último cebado y probar eso menos el valor actual. Esto es más corto en Pyth ya que la comprobación de primalidades está sobrecargada: en números positivos encuentra la factorización prima, mientras que en números negativos determina si el valor positivo del número es primo.

Esto se traduce más o menos en:

to_find = input()
last_prime = 0
current = 0
results = []
while to_find > 0:
    if is_prime( current + last_prime ):
        results.append( current )
        to_find -= 1
        last_prime += current
    current += 1
print results
FryAmTheEggman
fuente
Reemplace _+con -y +con --1 byte.
isaacg
@isaacg ¡Eso es bastante inteligente! Lo
editaré
2

MATL , 21 bytes

O2hGq:"t0)yd0)+_Yqh]d

Pruébalo en línea!

La salida es los primeros n términos de la secuencia.

Explicación:

Construye una lista de primos (con un 0 inicial), y al final encuentra los retornos de las diferencias entre primos sucesivos en la lista.

              % Implicit input, say n
O2h           % Push P = [0, 2] on the stack 
Gq:"          % for loop: 1 to n-1
  t0)           % Take the last element of P
                %  Stack: [[0, 2], [2]] (in first iteration)
  yd0)          % Take the difference between the last
                %   two elements of P
                %  Stack: [[0, 2], [2], [2]]
  +             % Add those up
                %  Stack: [[0, 2], [4]]
  _Yq           % Get the next prime higher than that sum
                %  Stack: [[0, 2], [5]]
  h             % Concatenate that to the list P
                %  Stack: [[0, 2, 5]]
]             % End for loop
d             % Get the differences between successive elements of
              %   the final list P
sundar - Restablecer a Monica
fuente
2

Haskell , 67 bytes

(1#1)2 2
(p#n)s k|p`mod`n>0,n-s>k=k:(p#n)n(n-s)|w<-p*n=(w#(n+1))s k

Pruébalo en línea!

(1#1)2 2es una función que no toma entrada y genera una lista infinita.


vieja respuesta:

Haskell , 88 83 78 76 bytes

La prueba de primalidad es de esta respuesta y es mejorada por Christian Sievers (-2 bytes).

-5 bytes gracias a WW .

2#2
(p#s)n|n<1=p|w<-until(\m->mod(product[1..m-1])m>0)(+1)$s+p+1=(w-s)#w$n-1

Pruébalo en línea!

ovs
fuente
Puedes prescindir ^2. Eso cambiará el predicado de la prueba es primo a prueba es primo o 4 , lo que no importa en esta aplicación.
Christian Sievers
2

05AB1E (heredado) , 12 bytes

0U[XN+DpiN,U

Pruébalo en línea!

Explicación

0U              # initialize X as 0
  [             # start an infinite loop
   XN+          # add X to N (the current iteration number)
      Dpi       # if the sum is prime:
         N,     #   print N
           U    #   and store the sum in X

Hay un par de soluciones diferentes de 12 bytes posibles.
Este en particular podría haber sido de 10 bytes si tuviéramos una variable utilizable inicializada como 0 (en lugar de 1 y 2).

Emigna
fuente
1

Python 2 , 119 bytes

f=lambda n,k=1,m=1:m%k*k>n or-~f(n,k+1,m*k*k)
def g(i):
 r=[2]
 for j in range(i):r+=[f(sum(r)+r[-1])-sum(r)]
 return r

Pruébalo en línea!

Siguiente función principal f () tomada de esta respuesta .

La función g () toma un número entero no negativo i y devuelve una lista de todos los elementos de la secuencia hasta ese índice.

Triggernometry
fuente
-7 bytes .
Sr. Xcoder
1

Python 2 , 99 98 bytes

def f(n,s=2,v=2):
 k=s-~v
 while any(k%i<1for i in range(2,k)):k+=1
 return n and f(n-1,k,k-s)or v

Pruébalo en línea!

1 byte gracias al Sr. Xcoder .

Chas Brown
fuente
1
Lo sé ... lo sé ... yo y mi pedantería de trucos bit a bit :) Pero puedes guardar un byte con k=s-~v.
Sr. Xcoder
@Señor. Xcoder: ¡Tu perversa brujería será el fin de ti todavía! :)
Chas Brown
1

Haskell , 101 99 97 bytes

La función lno toma argumentos y devuelve una lista infinita. No es tan corto como el enfoque más directo de @ovs (y obviamente robé algunas partes de su respuesta), pero ¿tal vez aún sea golfable?

¡Gracias @ H.PWiz por -2 bytes!

import Data.List
p m=mod(product[1..m-1])m>0
l=2:[until(p.(+sum a))(+1)$last a+1|a<-tail$inits l]

Pruébalo en línea!

falla
fuente
1

Python 2 , 82 80 bytes

s=p=2
i=input()
P=n=1
while i:
 P*=n;n+=1
 if P%n>0<n-s-p:p=n-s;s=n;i-=1
print p

Pruébalo en línea!

Esto genera el enésimo número de la secuencia (basado en 0). Al mover el printbucle, se puede modificar para generar los primeros nelementos en el mismo bytecount: ¡ Pruébelo en línea!

ovs
fuente
0

Japt, 17 bytes

Emite el ntérmino th, 0-indexado.

@_+T j}aXÄT±X}g2ì

Intentalo

Lanudo
fuente