|
%I #14 Aug 18 2021 00:10:32
%S 59561,191050,193681,530209,537514,680914,685873,692513,857837,865261,
%T 1248218,1250453,1259413,1471994,1474421,1479281,1481714,1484149,
%U 1486586,1491466,1496354,1498801,1722073,1737853,1748413,1988941,1994585
%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 97.
%t cfop97Q[n_]:=Module[{s=Sqrt[n],cf,len},If[IntegerQ[s],cf={1,1}, cf = ContinuedFraction[s][[2]]];len=Length[cf];OddQ[len]&&cf[[ (len+1)/2]] ==97]; Select[Range[2*10^6],cfop97Q] (* _Harvey P. Dale_, Dec 16 2014 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Corrected by _Harvey P. Dale_, Dec 16 2014
|
