|
|
A031800
|
|
Period of continued fraction for sqrt(n) contains exactly 32 ones.
|
|
0
|
|
|
1561, 1579, 1621, 1741, 1981, 2371, 2661, 2683, 2719, 2734, 2854, 3292, 3541, 3577, 3613, 3637, 3669, 3754, 3826, 4195, 4219, 4291, 4363, 4391, 4468, 4513, 4957, 5129, 5146, 5161, 5169, 5416, 5479, 5533, 5710, 5861, 5867, 6269, 6313, 6389, 6509, 6542
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf32Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==32]; Select[Range[7000], cf32Q] (* Harvey P. Dale, Mar 04 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|