id:A109583 - OEIS Search Results

Search: id:A109583

Displaying 1-1 of 1 results found.

page 1

Let x^3/(-1-x+x^3)=Sum[b[n]*x^n/n1,{n,0,Infinity}]; a(n) = Abs[b[n]]

+0
1

0, 0, 0, 6, 24, 120, 0, 5040, 80640, 725760, 3628800, 39916800, 1437004800, 24908083200, 261534873600, 0, 83691159552000, 2489811996672000, 44816615940096000, 364935301226496000, 9731608032706560000 (list; graph; listen)

	OFFSET	`0,4`
	MATHEMATICA	`g[x_] = x^3/(-1 - x + x^3) h[x_, n_] = Dt[g[x], {x, n}] a[x_] = Table[h[x, n], {n, 0, 25}]; b = a[0] Abs[b]`
	CROSSREFS	`Adjacent sequences: A109580 A109581 A109582 this_sequence A109584 A109585 A109586` `Sequence in context: A122739 A038380 A052745 this_sequence A100934 A127917 A026982`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 29 2005`

page 1

Search completed in 0.002 seconds

Last modified October 13 20:18 EDT 2008. Contains 145016 sequences.

AT&T Labs Research