|
%I #14 Aug 18 2021 00:10:32
%S 15401,29633,48922,49810,135649,139354,175013,178373,217517,221261,
%T 225037,270841,325429,328858,376394,377621,382549,383786,386266,
%U 387509,390001,446953,449629,522125,525017,581605,583130,586186,589250,596945,598490
%N Numbers k such that the continued fraction for sqrt(k) has odd period and if the last term of the periodic part is deleted the two central terms are both 49.
%t ct49Q[n_]:=Module[{s=Sqrt[n],cf,len},cf=ContinuedFraction[s];If[IntegerQ[ s],len=2,len=Length[cf[[2]]]];OddQ[len]&&cf[[2]][[(len+1)/2]]==49]; Select[ Range[600000],ct49Q] (* _Harvey P. Dale_, Sep 19 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Corrected and extended by _Harvey P. Dale_, Sep 19 2014
|
