OFFSET
0,6
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
h[1] = 1; h[2] = 1;
h[n_] := (Prime[n])/6 /; Mod[Prime[n], 6] == 0
h[n_] := (Prime[n] - 1)/6 /; Mod[Prime[n], 6] - 1 == 0
h[n_] := (Prime[n] - 2)/6 /; Mod[Prime[n], 6] - 2 == 0
h[n_] := (Prime[n] - 3)/6 /; Mod[Prime[n], 6] - 3 == 0
h[n_] := (Prime[n] - 4)/6 /; Mod[Prime[n], 6] - 4 == 0
h[n_] := (Prime[n] - 5)/6 /; Mod[Prime[n], 6] - 5 == 0
c[n_]=(1/Sqrt[2])*(h[n]-I*Sqrt[ -2*g[n]+h[n]^2])
cStar[n_]=(1/Sqrt[2])*(h[n]+I*Sqrt[ -2*g[n]+h[n]^2])
Table[ExpandAll[c[n]*cStar[n]], {n, 1, 50}] (* Slightly modified by Jinyuan Wang, Feb 22 2020 *)
CROSSREFS
KEYWORD
nonn,uned,obsc
AUTHOR
Roger L. Bagula, Mar 23 2006
EXTENSIONS
More terms from Jinyuan Wang, Feb 22 2020
STATUS
approved