login
A031866
Period of continued fraction for sqrt(n) contains exactly 98 ones.
0
10399, 12076, 13654, 13711, 14029, 14221, 14551, 15094, 15541, 15646, 15829, 15919, 16249, 17356, 18934, 19069, 19204, 19489, 20518, 20773, 21529, 21841, 22174, 23041, 23713, 23761, 24241, 24364, 24646, 25341, 25969, 26203, 26797, 26836, 27201, 27868
OFFSET
1,1
MATHEMATICA
cf98Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==98]; Select[Range[30000], cf98Q] (* Harvey P. Dale, Jul 09 2015 *)
CROSSREFS
Sequence in context: A289954 A263890 A279946 * A262800 A157445 A010082
KEYWORD
nonn
STATUS
approved