login
A031864
Period of continued fraction for sqrt(n) contains exactly 96 ones.
0
10606, 12709, 13591, 15601, 15766, 15814, 16774, 17781, 18451, 19309, 19819, 19996, 20041, 20716, 21796, 22141, 22531, 22597, 23131, 23209, 23389, 24172, 24397, 25054, 26737, 26929, 27309, 27763, 27791, 28627, 28687, 28921, 30577, 30613, 30631, 31102
OFFSET
1,1
MATHEMATICA
cf96Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s] [[2]], 1]]==96]; Select[Range[32000], cf96Q] (* Harvey P. Dale, Jan 28 2017 *)
CROSSREFS
Sequence in context: A083977 A082442 A252101 * A184092 A110018 A249229
KEYWORD
nonn
STATUS
approved