|
|
A033315
|
|
Incrementally largest values of minimal x satisfying Pell equation x^2 - D*y^2 = 1.
|
|
17
|
|
|
1, 3, 9, 19, 649, 9801, 24335, 66249, 1766319049, 158070671986249, 2469645423824185801, 159150073798980475849, 838721786045180184649, 25052977273092427986049, 3879474045914926879468217167061449
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
PellSolve[(m_Integer)?Positive] := Module[{cf, n, s}, cf = ContinuedFraction[Sqrt[m]]; n = Length[Last[cf]]; If[n == 0, Return[{}]]; If[OddQ[n], n = 2 n]; s = FromContinuedFraction[ ContinuedFraction[ Sqrt[m], n]]; {Numerator[s], Denominator[s]}];
xx = DeleteCases[PellSolve /@ Range[10^5], {}][[All, 1]];
|
|
CROSSREFS
|
Cf. A033316 (corresponding values of D).
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|