A020387 Numbers k such that the continued fraction for sqrt(k) has period 48.

631, 844, 1006, 1341, 1441, 1663, 1689, 1783, 1822, 1837, 1871, 2062, 2287, 2413, 2479, 2517, 2572, 2591, 2846, 2853, 3103, 3184, 3273, 3309, 3340, 3376, 3448, 3521, 3537, 3767, 4109, 4361, 4497, 4526, 4585, 4750, 4766, 4833, 4849, 4921, 4986, 5118

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

cf48Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 0, Length[ ContinuedFraction[ s][[2]]]]==48]; Select[Range[5200], cf48Q] (* Harvey P. Dale, Nov 04 2020 *)

Crossrefs

Cf. A003285.

Sequence in context: A045168 A270802 A119504 * A217494 A105305 A252412

Adjacent sequences: A020384 A020385 A020386 * A020388 A020389 A020390

Keyword

nonn

Author

David W. Wilson

Status

approved