|
|
A017065
|
|
Expansion of 1/((1-3x)(1-4x)(1-11x)).
|
|
1
|
|
|
1, 18, 235, 2760, 31141, 345918, 3819295, 42071220, 463025881, 5094274218, 56041033555, 616467614880, 6781209278221, 74593565712918, 820530282235015, 9025837356505740, 99284227972292161, 1092126576027270018
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 9*3^n/8 - 16*4^n/7 + 121*11^n/56. - R. J. Mathar, Jun 23 2013
a(n) = 18*a(n-1) - 89*a(n-2) + 132*a(n-3).
a(n) = 15*a(n-1) - 44*a(n-2) + 3^n. (End)
|
|
MATHEMATICA
|
CoefficientList[Series[1 / ((1 - 3 x) (1 - 4 x) (1 - 11 x)), {x, 0, 20}], x] (* Vincenzo Librandi, Jun 26 2013 *)
LinearRecurrence[{18, -89, 132}, {1, 18, 235}, 20] (* Harvey P. Dale, Jul 28 2023 *)
|
|
PROG
|
(Magma) I:=[1, 18, 235]; [n le 3 select I[n] else 18*Self(n-1)-89*Self(n-2)+132*Self(n-3): n in [1..20]]; /* or */ m:=20; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-3*x)*(1-4*x)*(1-11*x)))); // Vincenzo Librandi, Jun 26 2013
(PARI) x='x+O('x^20); Vec(1/((1-3*x)*(1-4*x)*(1-11*x))) \\ Altug Alkan, Sep 23 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|