%I #12 May 13 2022 12:23:52
%S 2918,2942,2946,2962,2966,2974,2978,2994,2998,3022,3046,3058,3062,
%T 3086,3106,3118,3126,3134,6564,6573,6591,6609,6621,6636,6663,6693,
%U 6702,6717,6729,6753,6771,6774,6789,6801,6807,6852,6861,6879,6924,6933,6951,7017
%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 54.
%t cf54Q[n_]:=Module[{s=Sqrt[n],cf,len},cf=If[IntegerQ[s],{1},ContinuedFraction[s] [[2]]];len=Length[cf];EvenQ[len]&&cf[[len/2]]==54]; Select[Range[7100],cf54Q] (* _Harvey P. Dale_, May 13 2022 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Definition clarified by _Harvey P. Dale_, May 13 2022
|