|
|
A020371
|
|
Numbers k such that the continued fraction for sqrt(k) has period 32.
|
|
0
|
|
|
463, 508, 764, 913, 956, 967, 974, 989, 1041, 1063, 1121, 1132, 1135, 1219, 1228, 1276, 1336, 1372, 1447, 1555, 1583, 1591, 1678, 1797, 1834, 1912, 1927, 2004, 2044, 2094, 2151, 2155, 2224, 2398, 2416, 2422, 2447, 2586, 2608, 2710, 2722, 2752, 2815, 2864
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf32Q[n_]:=Module[{s=Sqrt[n], len}, len=If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]; len==32]; Select[Range[3000], cf32Q] (* Harvey P. Dale, Jan 12 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|