OFFSET
0,1
LINKS
Ken Ono and Scott Ahlgren, Weierstrass points on X0(p) and supersingular j-invariants, Mathematische Annalen 325, 2003, pp. 355-368.
MATHEMATICA
g[1] = 1; g[2] = 1;
g[n_] := (Prime[n] - 13)/12 /; Mod[Prime[n], 12] - 1 == 0
g[n_] := (Prime[n] - 5)/12 /; Mod[Prime[n], 12] - 5 == 0
g[n_] := (Prime[n] - 7)/12 /; Mod[Prime[n], 12] - 7 == 0
g[n_] := (Prime[n] + 1)/12 /; Mod[Prime[n], 12] - 11 == 0
p[x] := Sum[g[n]*(g[n]^2 - 1)*x^n, {n, 1, 200}]
Flatten[{{0}, Table[ Coefficient[Series[p[x], {x, 0, 70}], x^n], {n, 1, 70}]}]
CROSSREFS
KEYWORD
nonn,obsc,uned
AUTHOR
Roger L. Bagula, Mar 18 2006
STATUS
approved