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

530, 2118, 4764, 8468, 13230, 19050, 25928, 33864, 42858, 52910, 64020, 76188, 89414, 103698, 119040, 135440, 152898, 171414, 190988, 211620, 233310, 256058, 279864, 304728, 330650, 357630, 385668, 414764, 444918, 476130, 508400, 541728

Offset

1,1

Comments

a(n) = 529n^2 + n for n < 49, but a(49) = 1221072. - Charles R Greathouse IV, Aug 04 2017

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Mathematica

lt46Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==46]; Select[Range[550000], lt46Q] (* Harvey P. Dale, Jul 13 2013 *)

Crossrefs

Sequence in context: A048455 A158368 A250795 * A251004 A098259 A174761

Adjacent sequences: A031721 A031722 A031723 * A031725 A031726 A031727

Keyword

nonn

Author

David W. Wilson

Status

approved