A053375 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y for n == 3 mod 4.
1, 3, 3, 1, 39, 5, 273, 1, 4, 531, 7, 7, 12, 69, 5967, 413, 9, 9, 3, 165, 4, 22419, 93, 28, 105, 11, 11, 419775, 927, 6578829, 1, 140634693, 20, 105, 5019135, 13, 313191, 36, 123, 650783, 1, 1153080099, 4, 19162705353, 3, 5, 15, 15, 5, 3
Offset: 0
References
- R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.
Links
- S. R. Finch, Class number theory
- Steven R. Finch, Class number theory [Cached copy, with permission of the author]
Programs
-
Mathematica
A039957 = Select[ Range[250], SquareFreeQ[#] && Mod[#, 4] == 3 & ]; A053375 = (NumberFieldFundamentalUnits[ Sqrt[#]][[1, 2, 2]] & ) /@ A039957 (* Jean-François Alcover, Jan 04 2012 *)
Comments