|
|
A064933
|
|
Numbers k such that the period of the continued fraction for sqrt(3)*k is 2.
|
|
3
|
|
|
1, 2, 3, 4, 7, 11, 14, 15, 26, 28, 41, 52, 56, 78, 97, 130, 153, 156, 194, 209, 260, 362, 388, 390, 571, 679, 724, 765, 776, 780, 1351, 1358, 1552, 2131, 2702, 2716, 2911, 3982, 4053, 5042, 5404, 5432, 6755, 6878, 7953, 7964, 8106, 8109, 10084, 10808
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
R. K. Guy, personal communication.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1024], Length[Last[ContinuedFraction[Sqrt[3]*# ]]]==2& ]
Select[ Range[20000], Length[ Last[ ContinuedFraction[ Sqrt[3]*# ]]] ==2 & ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|