"Source: Text/Geometry/Lseries.text";
"Line: 2541";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Lseries.text, line: 2541
// Example: H139E27 ()
print "Example: H139E27";
ei := GetEchoInput();
SetEchoInput(true);
f1 := ModularForms(1,12).2;
f2 := ModularForms(1,26).2;
L1 := LSeries(f1);
L2 := LSeries(f2);
L := TensorProduct(L1, L2, []);
LSeriesData(L); // weight is (12-1)+(26-1)+1 -- motivic weight is 11+25
CFENew(L);
Pi(RealField(30))^2 * Evaluate(L,24) / Evaluate(L,25);
691/70.; // Ramanujan congruence
SetEchoInput(ei);
