|
|
A031848
|
|
Period of continued fraction for sqrt(n) contains exactly 80 ones.
|
|
0
|
|
|
9244, 10531, 11014, 11569, 12094, 12721, 12889, 13822, 14236, 14548, 14851, 15289, 16969, 17383, 18556, 19717, 19828, 19846, 19867, 20841, 20899, 21247, 21249, 21769, 21901, 22807, 23227, 23281, 23461, 24014, 24109, 24441, 25759, 25873, 26647, 27046
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf80Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==80]; Select[ Range[30000], cf80Q] (* Harvey P. Dale, Aug 06 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|