login
Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of x for n == 3 mod 4.
0

%I #12 Apr 14 2019 11:00:43

%S 2,8,10,4,170,24,1520,6,25,3482,48,50,89,530,48842,3480,80,82,28,1574,

%T 39,227528,962,295,1126,120,122,4730624,10610,77563250,12,1728148040,

%U 249,1324,64080026,168,4190210,487,1682,8994000,14

%N Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of x for n == 3 mod 4.

%C Entries are indexed by values of n from A039957.

%D R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

%H S. R. Finch, <a href="http://www.people.fas.harvard.edu/~sfinch/">Class number theory</a>

%H Steven R. Finch, <a href="/A000924/a000924.pdf">Class number theory</a> [Cached copy, with permission of the author]

%t NumberFieldFundamentalUnits[ Sqrt[#] ][[1, 2, 1]] & /@ Select[Range[3, 195, 4], SquareFreeQ ] (* _Jean-François Alcover_, Jul 09 2013 *)

%Y Cf. A053370-A053375.

%K nonn,easy,nice

%O 0,1

%A _N. J. A. Sloane_, Jan 06 2000