%I #16 Aug 18 2021 00:10:32
%S 15178,25681,38537,52153,53069,53993,70981,72586,90289,91493,115961,
%T 137341,140317,164554,166993,168629,170273,171098,192469,193346,
%U 195989,196874,197761,201329,229213,258905,260941,262985,265037,267097,271241
%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 35.
%t ct35Q[n_]:=Module[{s=Sqrt[n],cf,len,ctr},If[IntegerQ[s],cf={1,1},cf= ContinuedFraction[ s][[2]]];len=Length[cf];ctr=Floor[len/2];OddQ[len] && Take[cf,{ctr,ctr+1}]=={35,35}]; Select[Range[280000],ct35Q] (* _Harvey P. Dale_, Apr 16 2013 *)
%Y Subsequence of A003814.
%K nonn
%O 1,1
%A _David W. Wilson_
%E Corrected by _Harvey P. Dale_, Apr 16 2013
|