A116564 Ono supersingular invariant power function.

0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 6, 6, 12, 12, 20, 12, 20, 30, 20, 30, 42, 42, 42, 56, 56, 72, 56, 72, 90, 110, 110, 110, 132, 132, 132, 156, 182, 182, 210, 182, 240, 210, 240, 240, 272, 306, 342, 306

Offset

0,7

Links

Table of n, a(n) for n=0..47.

Ken Ono and Scott Ahlgren, Weierstrass points on X0(p) and supersingular j-invariants, Mathematische Annalen 325, 2003, pp. 355-368.

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
Table[g[n]*(g[n] - 1), {n, 3, 50}]

Crossrefs

Sequence in context: A139554 A366746 A230096 * A323442 A078014 A063867

Adjacent sequences: A116561 A116562 A116563 * A116565 A116566 A116567

Keyword

nonn,uned,obsc

Author

Roger L. Bagula, Mar 17 2006

Status

approved