|
%I #14 Aug 18 2021 00:10:32
%S 45877,95033,96269,126961,128389,129106,160289,162698,201065,204665,
%T 206477,250441,294293,300833,303029,346369,347546,349906,351089,
%U 355841,357034,358229,359426,468697,474185,535322,536785,538250,541186,544130
%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 47.
%t opct47Q[n_]:=Module[{sqrt=Sqrt[n],cf,len},cf=If[IntegerQ[sqrt],{}, ContinuedFraction[sqrt][[2]]]; len=Length[cf]; OddQ[len] && cf[[Floor[len/2]+1]] == 47] (* _Harvey P. Dale_, Sep 19 2012 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E Corrected by _Harvey P. Dale_, Sep 19 2012
|
