|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|