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,2

Comments

Entries are indexed by values of n from A039957.

References

R. A. Mollin, Quadratics, CRC Press, 1996, Tables B1-B3.

Links

Table of n, a(n) for n=0..49.

S. R. Finch, Class number theory

Steven R. Finch, Class number theory [Cached copy, with permission of the author]

Mathematica

A039957 = Select[ Range[250], SquareFreeQ[#] && Mod[#, 4] == 3 & ]; A053375 = (NumberFieldFundamentalUnits[ Sqrt[#]][[1, 2, 2]] & ) /@ A039957 (* Jean-François Alcover, Jan 04 2012 *)

Crossrefs

Cf. A053370-A053375.

Sequence in context: A117262 A065431 A271082 * A117252 A332498 A378075

Adjacent sequences: A053372 A053373 A053374 * A053376 A053377 A053378

Keyword

nonn,easy,nice

Author

N. J. A. Sloane, Jan 06 2000

Status

approved