login
A023678
y values corresponding to the x values in A023677.
2
1, 1, 1, 2, 3, 1, 3, 1, 4, 1, 1, 39, 1, 42, 5, 1, 1, 2, 273, 4, 6, 1, 1, 6, 4, 5, 2, 531, 3588, 7, 7, 1, 12, 20, 13, 69, 5, 8, 1, 8, 5967, 3, 30, 413, 125, 5, 1, 6, 9, 1, 9, 1, 1122, 3, 53, 165, 3, 221064, 4, 569, 1, 10, 22419, 4, 389, 93, 25, 2, 28, 73, 96, 105, 28254
OFFSET
1,4
REFERENCES
M. Pohst and H. Zassenhaus, Algorithmic Algebraic Number Theory, Cambridge Univ. Press, 1989, p. 432.
LINKS
MATHEMATICA
aa = {}; bb = {}; w = 0; n = 2; While[w < 100, If[SquareFreeQ[n], w = w + 1; kk = Exp[NumberFieldRegulator[Sqrt[n]]]; If[kk[[1]] == 1/2, kk = Expand[2 kk]]; AppendTo[aa, kk[[1]]]; AppendTo[bb, kk[[2]]/Sqrt[n]]]; n++ ]; bb (* Artur Jasinski, Oct 23 2010 *)
CROSSREFS
Cf. A023677.
Sequence in context: A342101 A114899 A220906 * A128222 A057039 A369010
KEYWORD
nonn
EXTENSIONS
Better definition from Artur Jasinski, Oct 23 2010
STATUS
approved