%I #14 Nov 30 2021 15:16:45
%S 9027,9043,9059,9067,9071,9079,9091,9103,9123,9127,9151,9167,9171,
%T 9179,9187,9199,9203,9223,9227,9239,9247,9267,9283,9291,9299,9307,
%U 9311,9319,9323,9339,9343,9359,9363,9371,9391,9403,9407,36104,36128,36136,36160
%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 95.
%t 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 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Definition fixed by _Harvey P. Dale_, Nov 30 2021
|