|
%I #10 Apr 01 2018 13:09:33
%S 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,
%T 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,
%U 165,3,221064,4,569,1,10,22419,4,389,93,25,2,28,73,96,105,28254
%N y values corresponding to the x values in A023677.
%D M. Pohst and H. Zassenhaus, Algorithmic Algebraic Number Theory, Cambridge Univ. Press, 1989, p. 432.
%H A. Jasinski, <a href="/A023678/b023678.txt">Table of n, a(n) for n=1..10000</a>
%t 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 *)
%Y Cf. A023677.
%K nonn
%O 1,4
%A _N. J. A. Sloane_
%E Better definition from _Artur Jasinski_, Oct 23 2010
|
