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

%I #13 Apr 14 2019 10:53:23

%S 1,3,3,1,39,5,273,1,4,531,7,7,12,69,5967,413,9,9,3,165,4,22419,93,28,

%T 105,11,11,419775,927,6578829,1,140634693,20,105,5019135,13,313191,36,

%U 123,650783,1,1153080099,4,19162705353,3,5,15,15,5,3

%N Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y 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 A039957 = Select[ Range[250], SquareFreeQ[#] && Mod[#, 4] == 3 & ]; A053375 = (NumberFieldFundamentalUnits[ Sqrt[#]][[1, 2, 2]] & ) /@ A039957 (* _Jean-François Alcover_, Jan 04 2012 *)

%Y Cf. A053370-A053375.

%K nonn,easy,nice

%O 0,2

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