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

16459, 31831, 55123, 57479, 64024, 69551, 73531, 80419, 91451, 92231, 96247, 108595, 110539, 115591, 122419, 141151, 154192, 156279, 157631, 159559, 159991, 160555, 165111, 165831, 166531, 166599, 173656, 183563, 186803, 187083, 188803

Offset

1,1

Links

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

Mathematica

cf61Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[ s] [[2]], 1]]==61]; Select[Range[200000], cf61Q] (* Harvey P. Dale, Feb 01 2015 *)

Crossrefs

Sequence in context: A076166 A168665 A283027 * A057680 A157796 A186848

Adjacent sequences: A031826 A031827 A031828 * A031830 A031831 A031832

Keyword

nonn

Author

David W. Wilson

Status

approved