A031411 Numbers k such that the continued fraction for sqrt(k) has even period 2*m and the m-th term of the periodic part is 8.

66, 86, 94, 98, 147, 177, 183, 201, 213, 222, 260, 268, 284, 292, 300, 316, 332, 340, 348, 356, 364, 388, 396, 405, 430, 470, 505, 545, 582, 605, 606, 618, 620, 750, 762, 791, 826, 847, 889, 894, 917, 938, 973, 994, 1032, 1043, 1057, 1106, 1113, 1141, 1162

Offset

1,1

Links

T. D. Noe, Table of n, a(n) for n = 1..1000

Mathematica

n = 1; t = {}; While[Length[t] < 50, n++; If[! IntegerQ[Sqrt[n]], c = ContinuedFraction[Sqrt[n]]; len = Length[c[[2]]]; If[EvenQ[len] && c[[2, len/2]] == 8, AppendTo[t, n]]]]; t (* T. D. Noe, Apr 04 2014 *)

Crossrefs

Cf. A031404-A031423.

Sequence in context: A032485 A257029 A223734 * A098775 A109759 A194196

Adjacent sequences: A031408 A031409 A031410 * A031412 A031413 A031414

Keyword

nonn

Author

David W. Wilson

Status

approved