|
%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
|
