|
|
A031838
|
|
Period of continued fraction for sqrt(n) contains exactly 70 ones.
|
|
0
|
|
|
4846, 5149, 6211, 6763, 7036, 7561, 9319, 9793, 9931, 10204, 10756, 10831, 11377, 11761, 11841, 11929, 12763, 12979, 13582, 13798, 13921, 14109, 14767, 14788, 15076, 15253, 15427, 15721, 16228, 16729, 16759, 16927, 17269, 17396, 17467, 17481, 17641
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf70Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==70]; Select[Range[18000], cf70Q] (* Harvey P. Dale, Dec 21 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|