"Source: Text/Geometry/HypGeomMot.text";
"Line: 1688";
"Date: Mon Jun 24 23:00:01 2019";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/HypGeomMot.text, line: 1688
// Example: H135E15 ()
print "Example: H135E15";
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);
