[go: up one dir, main page]

login
A031722
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 44.
1
485, 1938, 4359, 7748, 12105, 17430, 23723, 30984, 39213, 48410, 58575, 69708, 81809, 94878, 108915, 123920, 139893, 156834, 174743, 193620, 213465, 234278, 256059, 278808, 302525, 327210, 352863, 379484, 407073, 435630, 465155, 495648
OFFSET
1,1
COMMENTS
a(n) = 484n^2 + n for n < 47, but a(47) = 1026214. - Charles R Greathouse IV, Aug 04 2017
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
cf44Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==44]; Select[Range[500000], cf44Q] (* Harvey P. Dale, Feb 05 2023 *)
CROSSREFS
Sequence in context: A013903 A160090 A158326 * A156774 A031632 A097767
KEYWORD
nonn
STATUS
approved