OFFSET
0,2
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, 23102, 0, 0, 0, 0, 0, 0, 0, -1).
FORMULA
G.f.: -(x^14 -2*x^13 +3*x^12 -5*x^11 +73*x^10 -78*x^9 +151*x^8 -380*x^7 -151*x^6 -78*x^5 -73*x^4 -5*x^3 -3*x^2 -2*x -1) / ((x^8 -152*x^4 +1)*(x^8 +152*x^4 +1)). - Colin Barker, Dec 23 2013
MAPLE
convert(sqrt(924), confrac, 30, cvgts): denom(cvgts); # Wesley Ivan Hurt, Dec 23 2013
MATHEMATICA
Denominator[Convergents[Sqrt[924], 30]] (* Wesley Ivan Hurt, Dec 23 2013 *)
CoefficientList[Series[-(x^14 - 2 x^13 + 3 x^12 - 5 x^11 + 73 x^10 - 78 x^9 + 151 x^8 - 380 x^7 - 151 x^6 - 78 x^5 - 73 x^4 - 5 x^3 - 3 x^2 - 2 x - 1)/((x^8 - 152 x^4 + 1) (x^8 + 152 x^4 + 1)), {x, 0, 30}], x] (* Vincenzo Librandi, Dec 23 2013 *)
CROSSREFS
KEYWORD
nonn,frac,easy
AUTHOR
EXTENSIONS
More terms from Colin Barker, Dec 23 2013
STATUS
approved