"Source: Text/Geometry/HypGeomMot.text";
"Line: 1688";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/HypGeomMot.text, line: 1688
// Example: H138E15 ()
print "Example: H138E15";
ei := GetEchoInput();
SetEchoInput(true);
J := JacobiMotive([1/7,2/7,4/7]);
Scale(J,2) eq J; // scaling by 2 or 4 gives same motive
Field(J);
Weight(J);
EffectiveWeight(J);
T := TateTwist(J,1); // this twist is weight 1
Weight(T);
P := PrimesInInterval(11,100);
E := EllipticCurve("49a");
&and[EulerFactor(T,p) eq EulerFactor(E,p) : p in P];
Grossencharacter(J);
TateTwist($1,1);
SetEchoInput(ei);
