[go: up one dir, main page]

login
A022725
Expansion of 1/((1-x)*(1-5*x)*(1-8*x)*(1-12*x)).
1
1, 26, 455, 6760, 92301, 1200966, 15177955, 188364020, 2310685001, 28133195506, 340850357055, 4116281407680, 49604299052101, 596924491783646, 7176484756065755, 86224982057057740, 1035557295293705601
OFFSET
0,2
FORMULA
a(n) = (3*12^(n+3) - 11*8^(n+3) + 11*5^(n+3) - 3)/924. - Yahia Kahloune, Jun 29 2013
a(0)=1, a(1)=26, a(2)=455, a(3)=6760; for n>3, a(n) = 26*a(n-1) -221*a(n-2) +676*a(n-3) -480*a(n-4). - Vincenzo Librandi, Jul 12 2013
MATHEMATICA
CoefficientList[Series[1 / ((1 - x) (1 - 5 x) (1 - 8 x) (1 - 12 x)), {x, 0, 20}], x] (* Vincenzo Librandi, Jul 12 2013 *)
PROG
(Magma) I:=[1, 26, 455, 6760]; [n le 4 select I[n] else 26*Self(n-1)-221*Self(n-2)+676*Self(n-3)-480*Self(n-4): n in [1..25]]; /* or */ m:=25; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!(1/((1-x)*(1-5*x)*(1-8*x)*(1-12*x)))); // Vincenzo Librandi, Jul 12 2013
(PARI) x='x+O('x^30); Vec(1/((1-x)*(1-5*x)*(1-8*x)*(1-12*x))) \\ G. C. Greubel, Jul 25 2018
CROSSREFS
Sequence in context: A023953 A020968 A025955 * A020606 A021984 A025954
KEYWORD
nonn,easy
STATUS
approved