A023678 y values corresponding to the x values in A023677.

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

A. Jasinski, Table of n, a(n) for n=1..10000

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

Adjacent sequences: A023675 A023676 A023677 * A023679 A023680 A023681

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Better definition from Artur Jasinski, Oct 23 2010

Status

approved