A031593 Numbers k such that the continued fraction for sqrt(k) has even period and if the last term of the periodic part is deleted the central term is 95.

9027, 9043, 9059, 9067, 9071, 9079, 9091, 9103, 9123, 9127, 9151, 9167, 9171, 9179, 9187, 9199, 9203, 9223, 9227, 9239, 9247, 9267, 9283, 9291, 9299, 9307, 9311, 9319, 9323, 9339, 9343, 9359, 9363, 9371, 9391, 9403, 9407, 36104, 36128, 36136, 36160

Offset

1,1

Links

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

Mathematica

ep95Q[n_]:=Module[{s=Sqrt[n], cf, len}, cf=If[IntegerQ[s], {1}, ContinuedFraction[ s][[2]]]; len=Length[cf]; EvenQ[len]&&cf[[len/2]] == 95]; Select[Range[40000], ep95Q] (* Harvey P. Dale, Feb 24 2018 *)

Crossrefs

Sequence in context: A252456 A196994 A250828 * A031773 A128374 A210179

Adjacent sequences: A031590 A031591 A031592 * A031594 A031595 A031596

Keyword

nonn

Author

David W. Wilson

Extensions

Definition fixed by Harvey P. Dale, Nov 30 2021

Status

approved