A042532 Numerators of continued fraction convergents to sqrt(795).

28, 141, 1297, 6626, 372353, 1868391, 17187872, 87807751, 4934421928, 24759917391, 227773678447, 1163628309626, 65390959017503, 328118423397141, 3018456769591772, 15420402271356001, 866560983965527828

Offset

0,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..200

Index entries for linear recurrences with constant coefficients, signature (0, 0, 0, 13252, 0, 0, 0, -1).

Formula

G.f.: (28 +141*x +1297*x^2 +6626*x^3 +1297*x^4 -141*x^5 +28*x^6 -x^7)/(1 -13252*x^4 +x^8). - Vincenzo Librandi, Nov 27 2013

a(n) = 13252*a(n-4) - a(n-8). - Vincenzo Librandi, Nov 27 2013

Mathematica

Numerator[Convergents[Sqrt[795], 30]] (* or *) CoefficientList[Series[(28 + 141 x + 1297 x^2 + 6626 x^3 + 1297 x^4 - 141 x^5 + 28 x^6 - x^7)/(1 - 13252 x^4 + x^8), {x, 0, 30}], x] (* Vincenzo Librandi, Nov 27 2013 *)

Prog

(Magma) I:=[28, 141, 1297, 6626, 372353, 1868391, 17187872, 87807751]; [n le 8 select I[n] else 13252*Self(n-4)-Self(n-8): n in [1..30]]; // Vincenzo Librandi, Nov 27 2013

Crossrefs

Cf. A042533.

Sequence in context: A201102 A317680 A042530 * A187608 A069917 A028380

Adjacent sequences: A042529 A042530 A042531 * A042533 A042534 A042535

Keyword

nonn,cofr,frac,easy

Author

N. J. A. Sloane.

Status

approved