|
|
A031715
|
|
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 37.
|
|
1
|
|
|
1371, 5480, 12327, 21912, 34235, 49296, 67095, 87632, 110907, 136920, 165671, 197160, 231387, 268352, 308055, 350496, 395675, 443592, 494247, 547640, 603771, 662640, 724247, 788592, 855675, 925496, 998055, 1073352, 1151387, 1232160
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
lt37Q[n_]:=Module[{s=Sqrt[n], m}, m=If[IntegerQ[s], 1, Min[ ContinuedFraction[ s][[2]]]]; m==37]; Select[Range[125*10^4], lt37Q] (* Harvey P. Dale, Nov 10 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|