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, 0, 0, 39202, 0, 0, 0, 0, 0, -1).
FORMULA
G.f.: (31 + 249*x + 280*x^2 + 1929*x^3 + 2209*x^4 + 19601*x^5 + 2209*x^6 - 1929*x^7 + 280*x^8 - 249*x^9 + 31*x^10 - x^11)/(1 - 39202*x^6 + x^12). - Vincenzo Librandi, Dec 08 2013
a(n) = 39202*a(n-6) - a(n-12). - Vincenzo Librandi, Dec 08 2013
MATHEMATICA
Numerator[Convergents[Sqrt[968], 30]] (* or *) CoefficientList[Series[(31 + 249 x + 280 x^2 + 1929 x^3 + 2209 x^4 + 19601 x^5 + 2209 x^6 - 1929 x^7 + 280 x^8 -249 x^9 + 31 x^10 - x^11)/(1 - 39202 x^6 + x^12), {x, 0, 30}], x] (* Vincenzo Librandi, Dec 08 2013 *)
LinearRecurrence[{0, 0, 0, 0, 0, 39202, 0, 0, 0, 0, 0, -1}, {31, 249, 280, 1929, 2209, 19601, 1217471, 9759369, 10976840, 75620409, 86597249, 768398401}, 30] (* Harvey P. Dale, Oct 17 2018 *)
PROG
(Magma) I:=[ 31, 249, 280, 1929, 2209, 19601, 1217471, 9759369, 10976840, 75620409, 86597249, 768398401]; [n le 12 select I[n] else 39202*Self(n-6)-Self(n-12): n in [1..30]]; // Vincenzo Librandi, Dec 08 2013
CROSSREFS
KEYWORD
nonn,cofr,frac,easy
AUTHOR
EXTENSIONS
More terms from Vincenzo Librandi, Dec 08 2013
STATUS
approved