[go: up one dir, main page]

login
A031727
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 49.
1
2403, 9608, 21615, 38424, 60035, 86448, 117663, 153680, 194499, 240120, 290543, 345768, 405795, 470624, 540255, 614688, 693923, 777960, 866799, 960440, 1058883, 1162128, 1270175, 1383024, 1500675, 1623128, 1750383, 1882440, 2019299, 2160960
OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
cf49Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]==49]]; Select[Range[217*10^4], cf49Q] (* Harvey P. Dale, Jul 17 2019 *)
CROSSREFS
Sequence in context: A031776 A251774 A031547 * A236038 A323271 A283783
KEYWORD
nonn
STATUS
approved