(MAGMAMagma) I:=[25, 51, 280, 1731, 8935, 19601, 988985, 1997571, 10976840, 67858611, 350269895, 768398401]; [n le 12 select I[n] else 39202*Self(n-6)-Self(n-12): n in [1..30]]; // Vincenzo Librandi, Nov 19 2013

<a href="/index/Rec">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,39202,0,0,0,0,0,-1).

<a href="/index/Rea#recLCCRec">Index to sequences with linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,39202,0,0,0,0,0,-1).

editing

approved

G.f.: -(x^11 -25*x^10 + 51*x^9 - + 280*x^8 2 + 1731*x^7 -3 + 8935*x^6 -4 + 19601*x^5 -+ 8935*x^4 6 - 1731*x^3 -7 + 280*x^2 8 - 51*x -^9 + 25)/(*x^10 - x^12 11)/(1 - 39202*x^6 +1 x^12). - Vincenzo Librandi, Nov 19 2013

Numerator[Convergents[Sqrt[648], 30]] (* or *) CoefficientList[Series[-(x^11 - 25 x^10 + 51 x^9 - + 280 x^8 2 + 1731 x^7 - 3 + 8935 x^6 - 4 + 19601 x^5 - + 8935 x^4 6 - 1731 x^3 - 7 + 280 x^2 8 - 51 x - ^9 + 25)/( x^10 - x^12 11)/(1 - 39202 x^6 + 1x^12), {x, 0, 20}], x] (* Vincenzo Librandi, Nov 19 2013 *)

(MAGMA) I:=[25, 51, 280, 1731, 8935, 19601, 988985, 1997571, 10976840, 67858611, 350269895, 768398401]; [n le 12 select I[n] else 39202*Self(n-6)-Self(n-12): n in [1..30]]; // Vincenzo Librandi, Nov 19 2013

approved

editing

proposed

approved

editing

proposed

G.f.: -(x^11 -25*x^10 +51*x^9 -280*x^8 +1731*x^7 -8935*x^6 -19601*x^5 -8935*x^4 -1731*x^3 -280*x^2 -51*x -25)/(x^12 -39202*x^6 +1). - Vincenzo Librandi, Nov 19 2013

Numerator[Convergents[Sqrt[648], 30]] (* _or *) CoefficientList[Series[-(x^11 - 25 x^10 + 51 x^9 - 280 x^8 + 1731 x^7 - 8935 x^6 - 19601 x^5 - 8935 x^4 - 1731 x^3 - 280 x^2 - 51 x - 25)/(x^12 - 39202 x^6 + 1), {x, 0, 20}], x] (* _Vincenzo Librandi_, Nov 19 2013 *)

<a href="/index/Rea#recLCC">Index to sequences with linear recurrences with constant coefficients</a>, signature (0,0,0,0,0,39202,0,0,0,0,0,-1).

Vincenzo Librandi, <a href="/A042244/b042244.txt">Table of n, a(n) for n = 0..200</a>

a(n) = 39202*a(n-6) - a(n-12). - Vincenzo Librandi, Nov 19 2013

Numerator[Convergents[Sqrt[648], 30]] (* Vincenzo Librandi, Nov 19 2013 *)

(MAGMA) I:=[25, 51, 280, 1731, 8935, 19601, 988985, 1997571, 10976840, 67858611, 350269895, 768398401]; [n le 12 select I[n] else 39202*Self(n-6)-Self(n-12): n in [1..30]]; // Vincenzo Librandi, Nov 19 2013

nonn,cofr,frac,easy

approved

editing