A041727 Denominators of continued fraction convergents to sqrt(383).

1, 1, 2, 7, 135, 412, 547, 959, 36989, 37948, 74937, 262759, 5067358, 15464833, 20532191, 35997024, 1388419103, 1424416127, 2812835230, 9862921817, 190208349753, 580487971076, 770696320829, 1351184291905, 52115699413219, 53466883705124, 105582583118343

Offset

0,3

Links

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

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

Formula

G.f.: -(x^14 -x^13 +2*x^12 -7*x^11 +135*x^10 -412*x^9 +547*x^8 -959*x^7 -547*x^6 -412*x^5 -135*x^4 -7*x^3 -2*x^2 -x -1) / (x^16 -37536*x^8 +1). - Colin Barker, Nov 22 2013

a(n) = 37536*a(n-8) - a(n-16) for n>15. - Vincenzo Librandi, Dec 23 2013

Maple

convert(sqrt(383), confrac, 30, cvgts): denom(cvgts); # Wesley Ivan Hurt, Dec 23 2013

Mathematica

Denominator[Convergents[Sqrt[383], 40]] (* Harvey P. Dale, May 02 2012 *)
CoefficientList[Series[-(x^14 - x^13 + 2 x^12 - 7 x^11 + 135 x^10 - 412 x^9 + 547 x^8 - 959 x^7 - 547 x^6 - 412 x^5 - 135 x^4 - 7 x^3 - 2 x^2 - x - 1)/(x^16 - 37536 x^8 + 1), {x, 0, 30}], x] (* Vincenzo Librandi, Dec 23 2013 *)

Crossrefs

Cf. A041726, A040363.

Sequence in context: A000889 A323597 A286423 * A120379 A101799 A201172

Adjacent sequences: A041724 A041725 A041726 * A041728 A041729 A041730

Keyword

nonn,frac,easy

Author

N. J. A. Sloane.

Extensions

More terms from Colin Barker, Nov 22 2013

Status

approved