|
|
A020415
|
|
Numbers k such that the continued fraction for sqrt(k) has period 76.
|
|
0
|
|
|
1516, 2446, 2551, 4663, 5001, 5014, 5029, 5533, 5756, 6129, 6607, 6881, 6911, 6979, 7099, 7166, 7269, 7886, 8111, 8134, 8189, 8453, 8908, 9134, 9514, 9532, 9767, 10276, 10343, 10449, 10687, 10799, 11572, 11582, 11584, 11852, 11873, 12029, 12295, 12478
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf76Q[n_]:=Module[{s=Sqrt[n], len}, If[IntegerQ[s], len=1, len= Length[ ContinuedFraction[ s][[2]]]]; len==76]; Select[Range[15000], cf76Q] (* Harvey P. Dale, Apr 16 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|