login
A020367
Numbers k such that the continued fraction for sqrt(k) has period 28.
0
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
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
KEYWORD
nonn
STATUS
approved