A116580 square resultant of a complex prime genus function based on modulo 12 genus and modulo six genus functions.

3, 3, 0, 4, 3, 16, 15, 35, 34, 62, 98, 142, 141, 193, 192, 252, 319, 396, 479, 478, 571, 670, 669, 777, 1017, 1016, 1148, 1147, 1288, 1287, 1754, 1753, 1925, 2105, 2292, 2488, 2692, 2903, 2902, 3122, 3349, 3586, 3828, 4081, 4080, 4340, 4883, 5458, 5457

Offset

0,1

Links

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

Formula

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_]=Sqrt[2]*(h[n]-Sqrt[g[n]-h[n]^2]/Sqrt[2]) cstar[n_]= Conjugate[c[n]] a(n) = c[n]*cstar[n]

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_]=Sqrt[2]*(h[n]-Sqrt[g[n]-h[n]^2]/Sqrt[2]) cstar[n_]= Conjugate[c[n]] a=Table[ExpandAll[c[n]*cstar[n]], {n, 1, 50}]

Crossrefs

Sequence in context: A245256 A347149 A140686 * A096439 A377143 A256119

Adjacent sequences: A116577 A116578 A116579 * A116581 A116582 A116583

Keyword

nonn,uned,obsc

Author

Roger L. Bagula, Mar 21 2006

Status

approved