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

6484, 6679, 9349, 9556, 9601, 9781, 9961, 10711, 11341, 11686, 12853, 14939, 15391, 15913, 16063, 16561, 16804, 17419, 17809, 18127, 18427, 18489, 18628, 19273, 19681, 20143, 20653, 21011, 21989, 22027, 23143, 23299, 23509, 23731, 23812, 23887, 24613

Offset

1,1

Links

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

Mathematica

cf74Q[n_]:=Module[{s=Sqrt[n], t}, t=If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]; t==74]; Select[Range[25000], cf74Q] (* Harvey P. Dale, May 26 2015 *)

Crossrefs

Sequence in context: A104343 A207837 A104242 * A028544 A237245 A049529

Adjacent sequences: A031839 A031840 A031841 * A031843 A031844 A031845

Keyword

nonn

Author

David W. Wilson

Status

approved