%I
%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 n such that continued fraction for sqrt(n) has even period and central term 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_
