login
Numerators of continued fraction convergents to sqrt(602).
3

%I #18 Mar 18 2023 08:59:55

%S 24,25,49,319,368,687,33344,34031,67375,438281,505656,943937,45814632,

%T 46758569,92573201,602197775,694770976,1296968751,62949271024,

%U 64246239775,127195510799,827419304569,954614815368,1782034119937,86492252572344,88274286692281

%N Numerators of continued fraction convergents to sqrt(602).

%H Vincenzo Librandi, <a href="/A042154/b042154.txt">Table of n, a(n) for n = 0..200</a>

%H <a href="/index/Rec">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,1374,0,0,0,0,0,-1).

%F G.f.: (24 +25*x +49*x^2 +319*x^3 +368*x^4 +687*x^5 +368*x^6 -319*x^7 +49*x^8 -25*x^9 +24*x^10 -x^11)/(1 -1374*x^6 +x^12). - _Colin Barker_, Nov 09 2013

%F a(n) = 1374*a(n-6) - a(n-12). - _Vincenzo Librandi_, Nov 18 2013

%t Numerator[Convergents[Sqrt[602], 30]] (* _Vincenzo Librandi_, Nov 18 2013 *)

%t LinearRecurrence[{0,0,0,0,0,1374,0,0,0,0,0,-1},{24,25,49,319,368,687,33344,34031,67375,438281,505656,943937},30] (* _Harvey P. Dale_, Mar 18 2023 *)

%o (Magma) I:=[24,25,49,319,368,687,33344,34031,67375,438281,505656,943937]; [n le 12 select I[n] else 1374*Self(n-6)-Self(n-12): n in [1..30]]; // _Vincenzo Librandi_, Nov 18 2013

%Y Cf. A042155.

%K nonn,cofr,frac,easy,less

%O 0,1

%A _N. J. A. Sloane_.

%E More terms from _Colin Barker_, Nov 09 2013