|
Search: id:A116571
|
|
|
| A116571 |
|
Coefficient expansion of wfunction based on prime genus weight function. |
|
+0
1
|
|
| 6, 6, 6, 6, 24, 24, 60, 60, 120, 60, 120, 210, 120, 210, 336, 336, 336, 504, 504, 720, 504, 720, 990, 1320, 1320, 1320, 1716, 1716, 1716, 2184, 2730, 2730, 3360, 2730, 4080, 3360, 4080, 4080, 4896, 5814, 6840, 5814, 6840, 7980, 6840, 9240, 9240, 10626
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
REFERENCES
|
Weierstrass points on X0(p) and supersingular j-invariants (Ken Ono with Scott Ahlgren) Mathematiche Annalen 325, 2003, pp. 355-368
|
|
FORMULA
|
p[x] := Sum[g[n]*(g[n]^2 - 1)*x^n, {n, 1, 200}] a(n) = Coeffiencts[g[n], starting at x^9]
|
|
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}] a0 = Flatten[{{0}, Table[ Coefficient[Series[p[x], {x, 0, 70}], x^n], {n, 1, 70}]}]
|
|
CROSSREFS
|
Sequence in context: A103337 A001734 A092937 this_sequence A054641 A024731 A098537
Adjacent sequences: A116568 A116569 A116570 this_sequence A116572 A116573 A116574
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 18 2006
|
|
|
Search completed in 0.002 seconds
|
