|
|
A031842
|
|
Period of continued fraction for sqrt(n) contains exactly 74 ones.
|
|
0
|
|
|
6484, 6679, 9349, 9556, 9601, 9781, 9961, 10711, 11341, 11686, 12853, 14939, 15391, 15913, 16063, 16561, 16804, 17419, 17809, 18127, 18427, 18489, 18628, 19273, 19681, 20143, 20653, 21011, 21989, 22027, 23143, 23299, 23509, 23731, 23812, 23887, 24613
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
cf74Q[n_]:=Module[{s=Sqrt[n], t}, t=If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]; t==74]; Select[Range[25000], cf74Q] (* Harvey P. Dale, May 26 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|