|
%I #22 Sep 08 2022 08:44:55
%S 1,1,5,6,11,17,28,45,118,163,281,444,725,1169,5401,6570,399601,406171,
%T 2024285,2430456,4454741,6885197,11339938,18225135,47790208,66015343,
%U 113805551,179820894,293626445,473447339,2187415801,2660863140
%N Denominators of continued fraction convergents to sqrt(950).
%H Vincenzo Librandi, <a href="/A042839/b042839.txt">Table of n, a(n) for n = 0..200</a>
%H <a href="/index/Rec#order_32">Index entries for linear recurrences with constant coefficients</a>, signature (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 405002, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1).
%F a(n) = 405002*a(n-16) - a(n-32) for n>31. - _Vincenzo Librandi_, Jan 30 2014
%t Denominator[Convergents[Sqrt[950], 30]] (* _Vincenzo Librandi_, Jan 30 2014 *)
%t LinearRecurrence[{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,405002,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1},{1,1,5,6,11,17,28,45,118,163,281,444,725,1169,5401,6570,399601,406171,2024285,2430456,4454741,6885197,11339938,18225135,47790208,66015343,113805551,179820894,293626445,473447339,2187415801,2660863140},40] (* _Harvey P. Dale_, Oct 08 2016 *)
%o (Magma) I:=[ /* copy and paste here the first terms up to 2660863140 */ ]; [n le 32 select I[n] else 405002*Self(n-16)-Self(n-32): n in [1..50]]; // _Vincenzo Librandi_, Jan 30 2014
%Y Cf. A042838, A040919.
%K nonn,frac,easy
%O 0,3
%A _N. J. A. Sloane_.
%E More terms from _Vincenzo Librandi_, Jan 30 2014
|
