La conjecture de Goldbach déclare que:

chaque nombre pair supérieur à 2 est la somme de deux nombres premiers.

Nous considérerons une partition de Goldbach d'un nombre n comme une paire de deux nombres premiers additionnant n . Nous sommes préoccupés par le nombre est d'augmenter la partition Goldbach . Nous mesurons la taille des partitions Goldbach d'un nombre par la taille du plus petit nombre premier dans toutes les partitions de ce nombre. Un nombre augmente de partition si cette taille est supérieure à la taille de tous les petits nombres pairs.

Tâche

Etant donné un entier pair n> 2 , déterminez si n a une partition Goldbach croissante et affichez deux valeurs uniques, une si elle l'est et une si elle ne l'est pas.

Il s'agit de code-golf , vous devez donc viser à réduire le nombre d'octets dans votre code source.

OEIS A025018

Gelée , 12 octets

ÆRðfạṂ
Ç€M⁼W

Essayez-le en ligne!

Comment ça fonctionne

Ç€M⁼W   Main link. Argument: n

Ç€      Map the helper link over [1, ..., n].
  M     Get all indices of the maximum.
    W   Wrap; yield [n].
   ⁼    Test the results to both sides for equality.


ÆRðfạṂ  Helper link. Argument: k

ÆR      Prime range; get all primes in R := [1, ..., k].
  ð     Begin a dyadic chain with arguments R and k.
    ạ   Absolute difference; yield k-p for each p in R.
   f    Filter; keep the q in R such that q = k-p for some p in R.
     Ṃ  Take the minimum.
        This yields 0 if the array is empty.

PHP , 154 octets

for(;$n++<$a=$argn;$i-1?:$p[]=$n)for($i=$n;--$i&&$n%$i;);foreach($p as$x)foreach($p as$y)if(!$r[$z=$x+$y]){$r[$z]=$x;$l[]=$z<$a?$x:0;};echo$r[$a]>max($l);

Essayez-le en ligne!

Étendu

for(;$n++<$a=$argn;$i-1?:$p[]=$n) # loop through all integers till input if is prime add to array 
  for($i=$n;--$i&&$n%$i;);
foreach($p as$x) #loop through prime array
  foreach($p as$y) #loop through prime array 
    if(!$r[$z=$x+$y]){
      $r[$z]=$x; # add only one time lower value for a sum of $x+$y 
      $l[]=$z<$a?$x:0;}; # add lower value if sum is lower then input
echo$r[$a]>max($l); # Output 1 if lower value for sum of input is greater then all lower values of all numbers under input

Essayez-le en ligne! Vérifiez tous les numéros jusqu'à 1000

JavaScript (ES6), 135 octets

Utilise une logique similaire à la réponse PHP de Jörg .

(n,P=[...Array(n).keys()].filter(n=>(p=n=>n%--x?p(n):x==1)(x=n)))=>P.map(p=>P.map(q=>a[q+=p]=a[q]||(m=q<n&&p>m?p:m,p)),a=[m=0])&&a[n]>m

Démo

let f =

(n,P=[...Array(n).keys()].filter(n=>(p=n=>n%--x?p(n):x==1)(x=n)))=>P.map(p=>P.map(q=>a[q+=p]=a[q]||(m=q<n&&p>m?p:m,p)),a=[m=0])&&a[n]>m

console.log(
  JSON.stringify(
    [...Array(310).keys()].filter(n => f(n))
  )
)

Python 3: 156 151 142 142 138 136 128 octets

r=range
m=lambda n:min(x for x in r(2,n+1)if all(o%i for o in[x,n-x]for i in r(2,o)))
f=lambda n:m(n)>max(map(m,r(2,n,2)))or n<5

(merci à OP)

(merci à @Rod) (encore) (et encore)

Python 3: 204 196 octets

Octets économisés grâce à: Olm Man

from itertools import*
m=lambda g:min([x for x in product([n for n in range(2,g)if all(n%i for i in range(2,n))],repeat=2)if sum(x)==g][0])
i=lambda g:1if all(m(g)>m(x)for x in range(4,g,2))else 0

Essayez-le en ligne!