欲張りマグマフルセット

K<b>:=QuadraticField(5723);
A:=EllipticCurve([K!0,0,0,17,0]);
Sel2:=TwoSelmerGroup(A); Sel2;

K<b>:=QuadraticField(5723);
A:=EllipticCurve([K!0,0,0,17,0]);
Tor:=TorsionSubgroup(A); Tor;

E := EllipticCurve([0,0,0,17,0]); // Define your elliptic curve E
Q := QuadraticTwist(E, 5723); // Compute the quadratic twist of E by 15*7
rank := Rank(Q); // Calculate the rank of the quadratic twist
rank;

A:=EllipticCurve([0,0,0,17*(5723)^2,0]);
Sel2:=TwoSelmerGroup(A); Sel2;