Discussion :

[neotrack]

bonjour à tous, je tiens tout d'abord à m'excuser si le sujet de mon message n'est pas à sa place dans cette rubrique. voilà mon probleme, en fait, on souhaite ecrire une procedure en maple qui permet de verifier dans une intervalle de 2 à n de nombres premiers si la somme de deux de ces nombres est jumeau alors l'afficher, ne pas l'afficher sinon. merci d'avance.

[phryte]

bonjour à tous, je tiens tout d'abord à m'excuser si le sujet de mon message n'est pas à sa place dans cette rubrique. voilà mon probleme, en fait, on souhaite ecrire une procedure en maple qui permet de verifier dans une intervalle de 2 à n de nombres premiers si la somme de deux de ces nombres est jumeau alors l'afficher, ne pas l'afficher sinon. merci d'avance.

Des nombres premiers jumeaux ont pour différence 2. Dans ton cas qu'appelles-tu jumeaux ?

Tu peux t'inspirer de : (quoique un peu lourd !)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
nbprem:=proc(n) 
   local i,j,p,q,k;i:=1:for p from 2 to n do if isprime(p)  then  prim(i):= p: i:=i+1 fi od :
 j:=1:for p from 1 to i-2 do for q from p+1 to i-1 do som(j):= prim(p)+prim(q): j:=j+1: od: od:
       for k from 1 to j do if som(k)= som(k+1) then print(som(k),som(k+1)) fi od;end:
> nbprem(50);
 
 
                                78, 78
 
 
                                84, 84