%I #25 Jun 30 2026 16:37:06
%S 28,4,3,13,1,4,4,1,13,3,4,56,4,3,13,1,4,4,1,13,3,4,56,4,3,13,1,4,4,1,
%T 13,3,4,56,4,3,13,1,4,4,1,13,3,4,56,4,3,13,1,4,4,1,13,3,4,56,4,3,13,1,
%U 4,4,1,13,3,4,56,4,3,13,1,4,4,1,13,3,4,56,4,3,13,1
%N Continued fraction for sqrt(797).
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%H <a href="/index/Rec#order_11">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,0,0,0,0,0,1).
%F G.f.: -(x +1)*(28*x^10 -24*x^9 +27*x^8 -14*x^7 +15*x^6 -11*x^5 +15*x^4 -14*x^3 +27*x^2 -24*x +28)/((x -1)*(x^10 +x^9 +x^8 +x^7 +x^6 +x^5 +x^4 +x^3 +x^2 +x +1)). [_Colin Barker_, Aug 11 2012]
%p with(numtheory): Digits := 300: convert(evalf(sqrt(797)),confrac);
%t ContinuedFraction[Sqrt[797],100] (* _Harvey P. Dale_, Nov 17 2014 *)
%t (* Alternative: *)
%t PadRight[{28},100,{56,4,3,13,1,4,4,1,13,3,4}] (* _Harvey P. Dale_, Nov 17 2014 *)
%K nonn,cofr,easy,changed
%O 0,1
%A _N. J. A. Sloane_