login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052671 Expansion of e.g.f. x^3*(1-x)/(1-2*x). 1
0, 0, 0, 6, 24, 240, 2880, 40320, 645120, 11612160, 232243200, 5109350400, 122624409600, 3188234649600, 89270570188800, 2678117105664000, 85699747381248000, 2913791410962432000, 104896490794647552000 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..350

INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 619

FORMULA

E.g.f.: x^3*(-1+x)/(-1+2*x)

Recurrence: a(0)=0, a(1)=0, a(2)=0, a(3)=6, a(4)=24, a(n) = 2*n*a(n-1).

a(n) = 2^(n-4)*n!, n>3.

G.f.: 6*x^3 + 24*x^4*Hypergeometric2F0([5,1], [], 2*x). - G. C. Greubel, Jun 13 2022

MAPLE

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

MATHEMATICA

With[{nn=20}, CoefficientList[Series[x^3(-1+x)/(-1+2x), {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Nov 13 2014 *)

PROG

(Magma) [0, 0, 0, 6] cat [2^(n-4)*Factorial(n): n in [4..30]]; // G. C. Greubel, Jun 13 2022

(SageMath) [(2^(n-4) - 2^(n-4)*bool(n<3) + (1/2)*bool(n==3))*factorial(n) for n in (0..30)] # G. C. Greubel, Jun 13 2022

CROSSREFS

Cf. A000079, A000142.

Sequence in context: A223105 A112675 A052583 * A052733 A323449 A010567

Adjacent sequences:  A052668 A052669 A052670 * A052672 A052673 A052674

KEYWORD

easy,nonn

AUTHOR

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

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 2 06:01 EDT 2022. Contains 354985 sequences. (Running on oeis4.)