The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #12 Sep 11 2022 19:54:44
%S 1026,1046,1054,1058,1062,1074,1094,1126,1142,1154,2307,2361,2382,
%T 2388,2409,2433,2451,2469,2481,2487,2517,2526,2532,2553,2559,2577,
%U 2589,2598,4100,4124,4132,4140,4148,4156,4196,4204,4236,4244,4252,4268,4276,4292
%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 32.
%t cf32Q[n_]:=Module[{s=Sqrt[n],cf,len},cf=If[IntegerQ[s],{1},ContinuedFraction[ s][[2]]];len=Length[cf];EvenQ[len]&&cf[[len/2]]==32]; Select[Range[5000],cf32Q] (* _Harvey P. Dale_, Sep 11 2022 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Definition edited by _Harvey P. Dale_, Sep 11 2022