"Source: Text/Geometry/Lseries.text";
"Line: 2740";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/Lseries.text, line: 2740
// Example: H139E32 ()
print "Example: H139E32";
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);
