OFFSET
0,7
COMMENTS
Previous name was: A simple grammar.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 758
FORMULA
E.g.f.: x^5*exp(x)-x^5
Recurrence: {a(1)=0, a(2)=0, a(4)=0, a(3)=0, a(5)=0, a(6)=720, (-1-n)*a(n)+(-4+n)*a(n+1)}
MAPLE
spec := [S, {B=Set(Z, 1 <= card), S=Prod(Z, Z, Z, Z, Z, B)}, labeled]: seq(combstruct[count](spec, size=n), n=0..20);
MATHEMATICA
Flatten[{0, 0, 0, 0, 0, 0, Table[Binomial[n-1, 5]*5!, {n, 7, 35}]}] (* Vaclav Kotesovec, Oct 28 2012 *)
CoefficientList[Series[x^5 Exp[x] - x^5, {x, 0, 30}], x] Table[n!, {n, 0, 30} (* Vincenzo Librandi, May 04 2013 *)
PROG
(Magma) [0, 0, 0, 0, 0, 0] cat [(Binomial(n-1, 5))* 120: n in [7..30]]; // Vincenzo Librandi, May 04 2013
(PARI) x='x+O('x^66); concat([0, 0, 0, 0, 0, 0], Vec(serlaplace(x^5*exp(x)-x^5))) \\ Joerg Arndt, May 06 2013
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
encyclopedia(AT)pommard.inria.fr, Jan 25 2000
EXTENSIONS
More terms from Vincenzo Librandi, May 04 2013
New name using e.g.f., Vaclav Kotesovec, Feb 25 2014
STATUS
approved