login
A031863
Period of continued fraction for sqrt(n) contains exactly 95 ones.
0
68779, 72619, 85387, 87847, 101767, 104611, 134299, 137083, 139259, 151351, 153103, 153715, 154135, 159727, 168811, 185399, 218079, 243043, 243907, 257819, 285587, 290899, 309563, 315071, 315256, 335031, 352419, 364255, 404171, 432951
OFFSET
1,1
MATHEMATICA
cf95Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], False, Count[ ContinuedFraction[ s][[2]], 1]==95]]; Select[Range[500000], cf95Q] (* Harvey P. Dale, May 22 2014 *)
CROSSREFS
Sequence in context: A224426 A031845 A249315 * A213702 A233721 A121107
KEYWORD
nonn
STATUS
approved