A031726 Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 48.

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

Adjacent sequences: A031723 A031724 A031725 * A031727 A031728 A031729

Keyword

nonn

Author

David W. Wilson

Status

approved