|
|
A031753
|
|
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 75.
|
|
1
|
|
|
5627, 22504, 50631, 90008, 140635, 202512, 275639, 360016, 455643, 562520, 680647, 810024, 950651, 1102528, 1265655, 1440032, 1625659, 1822536, 2030663, 2250040, 2480667, 2722544, 2975671, 3240048, 3515675, 3802552, 4100679, 4410056, 4730683
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
lt75Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 0, Min[ContinuedFraction[s][[2]]]]==75]; Select[Range[5*10^6], lt75Q] (* Harvey P. Dale, Jan 30 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|