A052614 E.g.f. 1/((1-x)(1-x^4)).

1, 1, 2, 6, 48, 240, 1440, 10080, 120960, 1088640, 10886400, 119750400, 1916006400, 24908083200, 348713164800, 5230697472000, 104613949440000, 1778437140480000, 32011868528640000, 608225502044160000

Offset

0,3

Links

Table of n, a(n) for n=0..19.

INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 559

Formula

E.g.f.: 1/(-1+x)/(-1+x^4)

Recurrence: {a(1)=1, a(0)=1, a(3)=6, a(2)=2, (-61*n-11*n^3-n^4-30-41*n^2)*a(n) +(-n^2-5*n-6)*a(n+1) +(-n-3)*a(n+2) +a(n+4) -a(n+3)=0}

(Sum(1/16*(2*_alpha+_alpha^2-1)*_alpha^(-1-n), _alpha=RootOf(1+_Z+_Z^2+_Z^3))+1/4*n+5/8)*n!

n!*[n/4+1].

a(n)=n!*A008621(n). - R. J. Mathar, Jun 03 2022

Maple

spec := [S, {S=Prod(Sequence(Z), Sequence(Prod(Z, Z, Z, Z)))}, labeled]: seq(combstruct[count](spec, size=n), n=0..20);

Mathematica

With[{nn=20}, CoefficientList[Series[1/((1-x)(1-x^4)), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 30 2013 *)

Crossrefs

Sequence in context: A344676 A098710 A337907 * A052688 A052657 A230714

Adjacent sequences: A052611 A052612 A052613 * A052615 A052616 A052617

Keyword

easy,nonn

Author

encyclopedia(AT)pommard.inria.fr, Jan 25 2000

Status

approved