A031683 Numbers k such that the continued fraction for sqrt(k) has odd period and if the last term of the periodic part is deleted the two central terms are both 95.

56669, 110938, 183265, 184981, 274697, 508594, 512881, 653153, 656389, 659633, 664514, 824825, 828461, 1195178, 1203938, 1214933, 1217138, 1411969, 1419106, 1421489, 1426261, 1433434, 1435829, 1438226, 1659673, 1669993, 1899725

Offset

1,1

Links

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

Mathematica

cf95Q[n_]:=Module[{s=Sqrt[n], cf, len}, cf=If[IntegerQ[s], {1, 1}, ContinuedFraction[ s][[2]]]; len=Length[cf]; OddQ[len]&&cf[[(len+1)/2]] == 95]; Select[Range[2*10^6], cf95Q] (* Harvey P. Dale, Aug 11 2015 *)

Crossrefs

Sequence in context: A329270 A190836 A288076 * A202568 A145685 A333951

Adjacent sequences: A031680 A031681 A031682 * A031684 A031685 A031686

Keyword

nonn

Author

David W. Wilson

Extensions

Corrected and definition clarified by Harvey P. Dale, Aug 11 2015

Status

approved