Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A052591
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A052591 A simple regular expression in a labeled universe. +0
2
0, 1, 2, 12, 48, 360, 2160, 20160, 161280, 1814400, 18144000, 239500800, 2874009600, 43589145600, 610248038400, 10461394944000, 167382319104000, 3201186852864000, 57621363351552000, 1216451004088320000 (list; graph; listen)
OFFSET

0,3

COMMENT

Stirling transform of 2*a(n)=[2,4,24,96,...] is A052841(n+1)=[2,6,38,270,...]. - Michael Somos Mar 04 2004

LINKS

INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 536

FORMULA

Recurrence: {a(1)=1, a(0)=0, (-n^3-5*n^2-8*n-4)*a(n)+(-2-n)*a(n+1)+(n+1)*a(n+2)}

(1/4*(-1)^(1-n)+1/2*n+1/4)*n!

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

MAPLE

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

a:=n->(-1)*sum((-1)^k * (n-k+1) * n!, k=1..n) : seq(a(n), n=0..19); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 18 2007

a:=n->(n+1)!-sum((-1)^k*n!, k=0..n): seq(a(n)/2, n=0..19); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Mar 25 2008

PROGRAM

(PARI) a(n)=if(n<0, 0, n!*polcoeff(x/(1-x)/(1-x^2)+x*O(x^n), n))

CROSSREFS

Sequence in context: A048501 A001815 A052569 this_sequence A029766 A088311 A052588

Adjacent sequences: A052588 A052589 A052590 this_sequence A052592 A052593 A052594

KEYWORD

easy,nonn

AUTHOR

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

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 4 12:27 EST 2008. Contains 151280 sequences.


AT&T Labs Research