login
A014046
Second coordinate of fundamental unit of real quadratic field with discriminant A003658(n), n >= 2.
6
1, 1, 1, 1, 2, 1, 2, 3, 1, 8, 2, 1, 10, 3, 1, 4, 40, 1, 5, 2, 3, 250, 39, 1, 1, 42, 106, 5, 3, 1138, 2, 1, 8, 25, 146, 2, 273, 2968, 15, 6, 298, 1, 16, 2, 5, 6, 4, 17, 1856, 1, 2, 531, 1, 9384, 97, 3588, 10, 7, 253970, 2, 72664, 7, 3, 6440, 5, 521904, 12, 1, 1, 13
OFFSET
2,5
COMMENTS
See A014000 for much more about this sequence. - N. J. A. Sloane, Jun 14 2013
From Jianing Song, Mar 22 2026: (Start)
If (x0,y0) is the smallest positive solution to x^2 - D*y^2 = +-4, D = A003658(n), then a(n) = y0. Note that A014000(n) = x_0/2 if D == 0 (mod 4), (x_0-y_0)/2 if D == 1 (mod 4).
Let K be the real quadratic field of discriminant A003658(n). Then a(n) is the index in O_K of the quadratic order generated by units in O_K. (End)
REFERENCES
H. Cohen, A Course in Computational Algebraic Number Theory, Springer, 1993, pp. 515-519.
LINKS
S. R. Finch, Class number theory
Steven R. Finch, Class number theory [Cached copy, with permission of the author]
PROG
(PARI) lista(nn) = { for (n=2, nn, if (isfundamental(n), nc = core(n); m = Mod (nc, 4); if ((m == 2) || (m == 3), d = 1); if ((m == 1), d = 4); b = 1; a = 0; while (a == 0, v = nc*b^2; if (issquare(v-d), a = sqrtint(v-d), if (issquare(v+d), a = sqrtint(v+d))); if (a == 0, b++; ); ); print1(b, ", "); ); ); } \\ Michel Marcus, Sep 25 2018
(PARI) for(D=2, 200, if(isfundamental(D), print1(imag(quadunit(D)), ", "))) \\ Jianing Song, Mar 22 2026
CROSSREFS
Cf. A014000, A003658, A014077, A003652, A393497 (index of the quadratic order generated by units of norm 1).
Sequence in context: A334550 A232177 A111377 * A384147 A243919 A231775
KEYWORD
nonn
AUTHOR
Eric Rains (rains(AT)caltech.edu)
EXTENSIONS
Offset corrected by Jianing Song, Mar 31 2019
STATUS
approved