"Source: Text/Geometry/Lseries.text";
"Line: 2678";
"Date: Mon May 17 16:13:13 2021";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/Lseries.text, line: 2678
// Example: H136E31 ()
print "Example: H136E31";
ei := GetEchoInput();
SetEchoInput(true);
SetSeed(1);
K := QuadraticField(-23);
I := Factorization(23 * IntegerRing(K))[1][1];
G := HeckeCharacterGroup(I);
psi := G.1^14;
L := LSeries(psi);
LS5 := SymmetricPower(L, 5);
Lp5 := LSeries(psi^5);
Evaluate(LS5, 1);
Evaluate(Lp5, 1);
GR := Grossencharacter(psi, [[1,0]]);
L := LSeries(GR);
LS4 := SymmetricPower(L, 4);
Lp4 := LSeries(GR^4);
Evaluate(LS4, 3);
Evaluate(Lp4, 3);
SetEchoInput(ei);
