login
A031724
Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 46.
1
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
KEYWORD
nonn
STATUS
approved