A031594 - OEIS

%I #14 Jul 06 2024 16:14:34

%S 9218,9234,9278,9286,9302,9314,9318,9326,9346,9358,9382,9406,9426,

%T 9446,9462,9474,9502,9518,9538,9558,9566,9574,9598,9602,20739,20811,

%U 20814,20841,20847,20877,20892,20901,20913,20919,20937,20949,20964,20973,20991

%N 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 96.

%t cf96Q[n_]:=Module[{s=Sqrt[n],cf,len},cf=If[IntegerQ[s],{1}, ContinuedFraction[ s][[2]]];len=Length[cf];EvenQ[len]&&cf[[len/2]] == 96]; Select[Range[21000],cf96Q] (* _Harvey P. Dale_, May 15 2018 *)

%K nonn

%O 1,1

%A _David W. Wilson_