sage:from sage.modular.dirichlet import DirichletCharacter
H = DirichletGroup(7803, base_ring=CyclotomicField(2))
chi = DirichletCharacter(H, H._module([0, 0]))
N = Newforms(chi, 2, names="a")
magma://Please install CHIMP (https://github.com/edgarcosta/CHIMP) if you want to run this code
chi := DirichletCharacter("7803.1");
S:= CuspForms(chi, 2);
N := Newforms(S);
sage:traces = [24,0,0,24,20,0,0,0,0,0,8,0,4,16,0,24,0,0,4,48,0,0,36,0,28,0,
0,0,64,0,0,0,0,0,0,0,0,0,0,0,36,0,4,16,0,0,0,0,24,0,0,16,0,0,20,80,0,0,
0,0,0,-16,0,-24,72,0,16,0,0,-48,72,0,0]
f = next(g for g in N if [g.coefficient(i+1).trace() for i in range(73)] == traces)
gp:f = lf[1] \\ Warning: the index may be different
This newform subspace can be constructed as the intersection of the kernels of the following linear operators acting on \(S_{2}^{\mathrm{new}}(\Gamma_0(7803))\):