|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|