A031843 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 75 ones.

16171, 43531, 48199, 75319, 93839, 102307, 105571, 112519, 135307, 139000, 140344, 157603, 160631, 160744, 170344, 177923, 181327, 187359, 205543, 206711, 209199, 209455, 212771, 212963, 217627, 228343, 229723, 268051, 277523, 277631, 279911

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

q[k_] := Module[{c = ContinuedFraction[Sqrt[k]]}, Length[c] == 2 && Count[c[[2]], 1] == 75]; Select[Range[50000], q] (* Amiram Eldar, Aug 13 2025 *)

Crossrefs

Sequence in context: A109566 A235244 A236872 * A031624 A035921 A278607

Adjacent sequences: A031840 A031841 A031842 * A031844 A031845 A031846

Keyword

nonn

Author

David W. Wilson

Status

approved