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

Table of n, a(n) for n=1..42.

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