A023677 Value of x corresponding to the minimal solution of the Pell equation x^2+d*y^2, as d runs through the squarefree numbers.

1, 2, 1, 5, 8, 3, 10, 3, 15, 4, 4, 170, 5, 197, 24, 5, 5, 11, 1520, 23, 35, 6, 6, 37, 25, 32, 13, 3482, 24335, 48, 50, 7, 89, 151, 99, 530, 39, 63, 8, 65, 48842, 25, 251, 3480, 1068, 43, 9, 53, 80, 9, 82, 9

Offset

1,2

References

M. Pohst and H. Zassenhaus, Algorithmic Algebraic Number Theory, Cambridge Univ. Press, 1989, p. 432.

Links

A. Jasinski, Table of n, a(n) for n=1..10000

Mathematica

aa = {}; bb = {}; w = 0; n = 2; While[w < 100, If[SquareFreeQ[n], w = w + 1; kk = Exp[NumberFieldRegulator[Sqrt[n]]]; If[kk[[1]] == 1/2, kk = Expand[2 kk]]; AppendTo[aa, kk[[1]]]; AppendTo[bb, kk[[2]]/Sqrt[n]]]; n++ ]; aa (*Artur Jasinski*)

Crossrefs

For y values see A023678.

Sequence in context: A348729 A340880 A094510 * A108599 A340615 A108590

Adjacent sequences: A023674 A023675 A023676 * A023678 A023679 A023680

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

Better definition from Artur Jasinski, Oct 23 2010

Status

approved