|
%I #12 Aug 18 2021 00:10:32
%S 50,1321,2549,2753,4177,4570,6521,6845,12106,15173,15418,19961,23545,
%T 26773,27754,28418,28753,29429,31601,31954,32309,32666,33386,33749,
%U 34114,34481,35221,36829,40729,41645,42457,45785,46637,47497,48485,51137,53402
%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 14.
%t cfo14Q[n_]:=Module[{s=Sqrt[n],cf,len},cf=If[IntegerQ[s],{}, ContinuedFraction[ s][[2]]];len=Length[cf];OddQ[len] && cf[[(len+1)/2]] == 14]; Select[Range[54000],cfo14Q] (* _Harvey P. Dale_, Dec 10 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Corrected and definition clarified by _Harvey P. Dale_, Dec 10 2013
|
