|
|
A031789
|
|
Period of continued fraction for sqrt(n) contains exactly 21 ones.
|
|
0
|
|
|
2575, 8383, 9919, 11659, 11771, 13375, 14999, 16891, 17875, 18067, 18232, 18415, 20087, 22355, 24568, 27083, 27783, 29727, 34867, 35875, 38056, 40067, 41987, 42319, 44063, 44455, 46343, 48168, 48216, 50856, 52219, 52507, 52871, 53387, 53447, 54487
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf21Q[n_]:=With[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==21]; Select[ Range[55000], cf21Q] (* Harvey P. Dale, May 19 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|