# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a023678 Showing 1-1 of 1 %I A023678 #10 Apr 01 2018 13:09:33 %S A023678 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 A023678 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 A023678 165,3,221064,4,569,1,10,22419,4,389,93,25,2,28,73,96,105,28254 %N A023678 y values corresponding to the x values in A023677. %D A023678 M. Pohst and H. Zassenhaus, Algorithmic Algebraic Number Theory, Cambridge Univ. Press, 1989, p. 432. %H A023678 A. Jasinski, Table of n, a(n) for n=1..10000 %t A023678 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 A023678 Cf. A023677. %K A023678 nonn %O A023678 1,4 %A A023678 _N. J. A. Sloane_ %E A023678 Better definition from _Artur Jasinski_, Oct 23 2010 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE