login
A031726
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 48.
1
577, 2306, 5187, 9220, 14405, 20742, 28231, 36872, 46665, 57610, 69707, 82956, 97357, 112910, 129615, 147472, 166481, 186642, 207955, 230420, 254037, 278806, 304727, 331800, 360025, 389402, 419931, 451612, 484445, 518430, 553567, 589856
OFFSET
1,1
COMMENTS
a(n) = 576n^2 + n for n < 51, but a(51) = 1442450. - Charles R Greathouse IV, Aug 04 2017
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
cf48Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Min[ContinuedFraction[s][[2]]]]==48]; Select[Range[600000], cf48Q] (* Harvey P. Dale, May 09 2018 *)
CROSSREFS
Sequence in context: A158370 A244095 A261889 * A154514 A278740 A101249
KEYWORD
nonn
STATUS
approved