"Source: Text/Geometry/Lseries.text";
"Line: 1817";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Lseries.text, line: 1817
// Example: H139E22 ()
print "Example: H139E22";
ei := GetEchoInput();
SetEchoInput(true);
f := Newforms("30k2")[1,1];
qExpansion(f,10);
Lf := LSeries(f);
LGetCoefficients(Lf,20);
E := EllipticCurve(f); E;
LE := LSeries(E);
LGetCoefficients(LE,20);
P<x> := PolynomialRing(Integers());
K := NumberField(x^3-2);
LEK := LSeries(E,K);
i := LSeriesData(LEK); i;
LCfRequired(LEK);
LSetPrecision(LEK,9);
LCfRequired(LEK);
LEK`prod;
SetEchoInput(ei);
