A031820 Numbers k such that the period of the continued fraction for sqrt(k) 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

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

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