Apprendre Maple

[ALS]

Bonjour,

[Guimzo]

Bonjour ALS,

Merci : )
Voici la séquence rectifiée avec votre correction :

==============================

restart;
Digits := 155;
p := 85073;
a := [seq(2^n, n = 0 .. 10)];
with(combinat);
b := choose(a, 2);
N := nops(b);
c := {};
for k in b do c := `union`(c, {k[2]-k[1]}) end do;
c;
M := nops(c);
for x in c do r := (sqrt(x*x+4*p)+x)*(1/2);
if type(r, integer) then break end if end do;
print("FACTEUR r =", r);

========================================

Maintenant ce que je vais faire c'est juste rajouter une ligne, un autre ensemble, qui soit chaque élément de "c" divisé par 2...
Je reviens, je vais essayer : )