|
Search: id:A116563
|
|
|
| A116563 |
|
Genus of Ono X0[p] points. |
|
+0
2
|
|
| 0, 0, 1, 0, 1, 1, 2, 2, 2, 2, 3, 3, 4, 4, 5, 4, 5, 6, 5, 6, 7, 7, 7, 8, 8, 9, 8, 9, 10, 11, 11, 11, 12, 12, 12, 13, 14, 14, 15, 14, 16, 15, 16, 16, 17, 18, 19, 18
(list; graph; listen)
|
|
|
OFFSET
|
0,7
|
|
|
COMMENT
|
Also the dimension of the space of cusp forms of weight two and level p, where p=5, 7, 11, 13, ... ranges over all primes exceeding 3 - S. R. Finch (Steven.Finch(AT)inria.fr), Apr 04 2007
|
|
REFERENCES
|
Ken Ono and Scott Ahlgren, Weierstrass points on X0(p) and supersingular j-invariants Mathematiche Annalen 325, 2003, pp. 355-368
|
|
FORMULA
|
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 a(n) = g[n]
|
|
MATHEMATICA
|
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 a = Table[g[n], {n, 3, 50}]
|
|
CROSSREFS
|
Cf. A001617.
Adjacent sequences: A116560 A116561 A116562 this_sequence A116564 A116565 A116566
Sequence in context: A090701 A056970 A008668 this_sequence A076695 A071903 A091372
|
|
KEYWORD
|
nonn,uned,probation,obsc
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 17 2006
|
|
|
Search completed in 0.002 seconds
|
