A053372 Write fundamental unit for real quadratic field of discriminant n as x + y*omega; sequence gives values of x for n == 3 mod 4.
2, 8, 10, 4, 170, 24, 1520, 6, 25, 3482, 48, 50, 89, 530, 48842, 3480, 80, 82, 28, 1574, 39, 227528, 962, 295, 1126, 120, 122, 4730624, 10610, 77563250, 12, 1728148040, 249, 1324, 64080026, 168, 4190210, 487, 1682, 8994000, 14
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
NumberFieldFundamentalUnits[ Sqrt[#] ][[1, 2, 1]] & /@ Select[Range[3, 195, 4], SquareFreeQ ] (* Jean-François Alcover, Jul 09 2013 *)
Comments