A031820 Period of continued fraction for sqrt(n) contains exactly 52 ones.

3271, 3334, 3829, 4339, 4621, 4894, 5401, 5569, 5761, 5806, 6367, 6379, 6646, 6964, 7341, 7357, 7597, 8317, 8467, 9069, 9121, 9463, 9549, 9631, 9721, 9892, 10717, 10753, 10771, 10996, 11233, 11489, 11689, 11824, 11833, 12157, 12329, 12454, 12611, 12781

Offset

1,1

Links

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

Mathematica

cf52Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==52]; Select[Range[13000], cf52Q] (* Harvey P. Dale, Jul 02 2017 *)

Crossrefs

Sequence in context: A101706 A251273 A184204 * A048959 A353140 A237085

Adjacent sequences: A031817 A031818 A031819 * A031821 A031822 A031823

Keyword

nonn

Author

David W. Wilson

Status

approved