|
|
A020439
|
|
Numbers k such that the continued fraction for sqrt(k) has period 100.
|
|
4
|
|
|
2629, 3646, 4924, 5692, 5833, 5836, 6172, 6703, 6801, 7389, 7438, 8158, 8287, 8551, 8654, 9103, 10041, 10079, 10096, 10629, 10936, 11038, 11068, 11116, 11335, 11383, 11519, 11824, 11863, 11995, 12016, 12044, 12494, 12751, 12811, 12895, 13372, 13569
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
nn=15000; With[{nonsq=Complement[Range[nn], Range[ Floor[Sqrt[nn]]]^2]}, Select[ nonsq, Length[ ContinuedFraction[Sqrt[#]][[2]]]==100&]] (* Harvey P. Dale, May 22 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|