A031741 Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 63.

3971, 15880, 35727, 63512, 99235, 142896, 194495, 254032, 321507, 396920, 480271, 571560, 670787, 777952, 893055, 1016096, 1147075, 1285992, 1432847, 1587640, 1750371, 1921040, 2099647, 2286192, 2480675, 2683096, 2893455, 3111752, 3337987

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

ltcfQ[n_]:=Module[{sr=Sqrt[n]}, If[IntegerQ[sr], False, Min[ ContinuedFraction[ sr][[2]]]==63]]; Select[Range[3400000], ltcfQ] (* Harvey P. Dale, Oct 08 2012 *)

Crossrefs

Sequence in context: A343002 A230067 A031561 * A204501 A204494 A184492

Adjacent sequences: A031738 A031739 A031740 * A031742 A031743 A031744

Keyword

nonn

Author

David W. Wilson

Status

approved