"Source: Text/Geometry/Lseries.text";
"Line: 2479";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Lseries.text, line: 2479
// Example: H136E26 ()
print "Example: H136E26";
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);
