from sage.modular.dirichlet import DirichletCharacter
H = DirichletGroup(248400, base_ring=CyclotomicField(1980))
M = H._module
chi = DirichletCharacter(H, M([0,1485,1760,1881,1620]))
pari: [g,chi] = znchar(Mod(4813,248400))
χ248400(13,⋅)
χ248400(997,⋅)
χ248400(1237,⋅)
χ248400(1453,⋅)
χ248400(2653,⋅)
χ248400(2677,⋅)
χ248400(3397,⋅)
χ248400(3613,⋅)
χ248400(3877,⋅)
χ248400(4333,⋅)
χ248400(4813,⋅)
χ248400(5053,⋅)
χ248400(5317,⋅)
χ248400(5533,⋅)
χ248400(6973,⋅)
χ248400(7477,⋅)
χ248400(7717,⋅)
χ248400(8197,⋅)
χ248400(8413,⋅)
χ248400(8917,⋅)
χ248400(9133,⋅)
χ248400(9373,⋅)
χ248400(9853,⋅)
χ248400(10573,⋅)
χ248400(10813,⋅)
χ248400(12037,⋅)
χ248400(13237,⋅)
χ248400(14197,⋅)
χ248400(14677,⋅)
χ248400(14917,⋅)
...
order = charorder(g,chi)
[ charpow(g,chi, k % order) | k <-[1..order-1], gcd(k,order)==1 ]
(93151,62101,211601,158977,194401) → (1,−i,e(98),e(2019),e(119))
a |
−1 | 1 | 7 | 11 | 13 | 17 | 19 | 29 | 31 | 37 | 41 | 43 |
χ248400(4813,a) |
−1 | 1 | e(3967) | e(19801721) | e(990857) | e(660271) | e(660191) | e(19801517) | e(495142) | e(330269) | e(990227) | e(9964) |