A031816 Period of continued fraction for sqrt(n) contains exactly 48 ones.

3019, 3331, 3361, 3901, 4057, 4486, 4519, 5326, 5881, 5923, 6094, 6121, 6166, 6361, 6493, 6988, 7069, 7209, 7318, 7333, 7393, 7621, 7814, 8206, 8287, 8353, 8369, 8641, 8644, 8781, 8887, 9189, 9311, 9481, 9489, 9493, 9598, 10144, 10174, 10267, 10417

Offset

1,1

Links

Table of n, a(n) for n=1..41.

Mathematica

cf48Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s] [[2]], 1]]==48]; Select[Range[11000], cf48Q] (* Harvey P. Dale, Dec 18 2015 *)

Crossrefs

Sequence in context: A162606 A233963 A086746 * A252381 A186394 A236200

Adjacent sequences: A031813 A031814 A031815 * A031817 A031818 A031819

Keyword

nonn

Author

David W. Wilson

Status

approved