OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..244
Index entries for linear recurrences with constant coefficients, signature (11,-54,156,-294,378,-336,204,-81,19,-2).
FORMULA
G.f.: (1 -10*x -209*x^2 -3883*x^3 -6907*x^4 +15493*x^5 +27029*x^6 +8303*x^7 +502*x^8 +x^9) / ((1-2*x)*(1-x)^9). - Vincenzo Librandi, Oct 08 2014
a(n) = 11*a(n-1) -54*a(n-2) +156*a(n-3) -294*a(n-4) +378*a(n-5) -336*a(n-6)+204*a(n-7) -81*a(n-8) +19*a(n-9) -2*a(n-10) for n>9. - Vincenzo Librandi, Oct 08 2014
MATHEMATICA
Table[2^n - n^8, {n, 0, 30}] (* or *) CoefficientList[Series[(1 - 10 x - 209 x^2 - 3883 x^3 - 6907 x^4 + 15493 x^5 + 27029 x^6 + 8303 x^7 + 502 x^8 + x^9)/((1 - 2 x) (1 - x)^9), {x, 0, 30}], x] (* Vincenzo Librandi, Oct 08 2014 *)
PROG
(Magma) [2^n-n^8: n in [0..25]]; // Vincenzo Librandi, Apr 30 2011
(Magma) I:=[1, 1, -252, -6553, -65520, -390593, -1679552, -5764673, -16776960, -43046209]; [n le 10 select I[n] else 11*Self(n-1)-54*Self(n-2) +156*Self(n-3)-294*Self(n-4)+378*Self(n-5)-336*Self(n-6)+204*Self(n-7) -81*Self(n-8)+19*Self(n-9)-2*Self(n-10): n in [1..35]]; // Vincenzo Librandi, Oct 08 2014
CROSSREFS
KEYWORD
sign,easy
AUTHOR
STATUS
approved