|
|
A031837
|
|
Period of continued fraction for sqrt(n) contains exactly 69 ones.
|
|
0
|
|
|
25519, 47167, 51067, 75839, 103027, 123463, 123971, 126655, 128083, 132823, 145847, 151411, 154507, 159895, 160043, 187384, 198067, 202211, 216875, 217807, 218951, 219055, 219271, 223687, 234779, 234955, 236099, 242215, 246999, 247487
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf69Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==69]; Select[ Range[250000], cf69Q] (* Harvey P. Dale, Apr 01 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|