A053374 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of y for n == 2 mod 4.
1, 2, 1, 4, 42, 1, 2, 6, 6, 2, 3588, 13, 8, 8, 30, 5, 6, 1, 1122, 221064, 10, 389, 2, 96, 28254, 1, 5, 12606, 4, 12, 12, 1716, 616, 132015642, 1, 110, 120, 2, 550, 3774, 14, 221, 4148, 2, 47533775646, 17, 10, 1, 6, 756, 5662, 16, 16, 6485718, 42, 85, 150
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
sf = Select[2*Range[0, 139], SquareFreeQ]; NumberFieldFundamentalUnits[Sqrt[#]][[1, 2, 2]]& /@ sf (* Jean-François Alcover, May 31 2013 *)
Comments