|
|
A031829
|
|
Period of continued fraction for sqrt(n) contains exactly 61 ones.
|
|
0
|
|
|
16459, 31831, 55123, 57479, 64024, 69551, 73531, 80419, 91451, 92231, 96247, 108595, 110539, 115591, 122419, 141151, 154192, 156279, 157631, 159559, 159991, 160555, 165111, 165831, 166531, 166599, 173656, 183563, 186803, 187083, 188803
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf61Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[ s] [[2]], 1]]==61]; Select[Range[200000], cf61Q] (* Harvey P. Dale, Feb 01 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|