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

5931, 23720, 53367, 94872, 148235, 213456, 290535, 379472, 480267, 592920, 717431, 853800, 1002027, 1162112, 1334055, 1517856, 1713515, 1921032, 2140407, 2371640, 2614731, 2869680, 3136487, 3415152, 3705675, 4008056, 4322295, 4648392, 4986347

Offset

1,1

Links

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

Mathematica

cQ[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Min[ContinuedFraction[s][[2]]] == 77]; Select[Range[5000000], cQ] (* Harvey P. Dale, Dec 11 2012 *)

Crossrefs

Sequence in context: A284980 A251464 A031575 * A133598 A028517 A289515

Adjacent sequences: A031752 A031753 A031754 * A031756 A031757 A031758

Keyword

nonn

Author

David W. Wilson

Status

approved