login
A031842
Period of continued fraction for sqrt(n) contains exactly 74 ones.
0
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
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
KEYWORD
nonn
STATUS
approved