A020367 Numbers k such that the continued fraction for sqrt(k) has period 28.

334, 487, 501, 599, 716, 719, 814, 869, 926, 1004, 1031, 1099, 1125, 1169, 1214, 1244, 1246, 1333, 1414, 1434, 1437, 1473, 1529, 1557, 1559, 1564, 1607, 1648, 1696, 1719, 1807, 1817, 1823, 1916, 1977, 1978, 2032, 2065, 2087, 2140, 2324, 2329, 2350, 2382

Offset

1,1

Links

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

Mathematica

cf28Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]==28]; Select[Range[2400], cf28Q] (* Harvey P. Dale, Mar 10 2019 *)

Crossrefs

Sequence in context: A367978 A182098 A331411 * A254705 A184463 A303210

Adjacent sequences: A020364 A020365 A020366 * A020368 A020369 A020370

Keyword

nonn

Author

David W. Wilson

Status

approved