Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A080575
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A080575 Triangle of multinomial coefficients, read by rows (version 2). +0
8
1, 1, 1, 1, 3, 1, 1, 4, 3, 6, 1, 1, 5, 10, 10, 15, 10, 1, 1, 6, 15, 15, 10, 60, 20, 15, 45, 15, 1, 1, 7, 21, 21, 35, 105, 35, 70, 105, 210, 35, 105, 105, 21, 1, 1, 8, 28, 28, 56, 168, 56, 35, 280, 210, 420, 70, 280, 280, 840, 560, 56, 105, 420, 210, 28, 1, 1, 9, 36, 36, 84, 252, 84, 126, 504, 378, 756, 126, 315, 1260, 1260, 1890, 1260, 126, 280, 2520, 840, 1260, 3780, 1260, 84, 945, 1260, 378, 36, 1, 1, 10, 45, 45, 120, 360, 120, 210, 840, 630, 1260, 210 (list; graph; listen)
OFFSET

1,5

COMMENT

This is different from A036040.

T[n,m]=count of set partitions of n with block lengths given by the m-th partition of n.

Contribution from Tilman Neumann (Tilman.Neumann(AT)web.de), Oct 05 2008: (Start)

These are also the coefficients occuring in complete Bell polynomials, Faa di Bruno's formula (in it's simplest form) and computation of moments from cumulants.

Though the Bell polynomials seem quite unwieldy, they can be computed easily as the determinant of an n-dimensional square matrix. (see e.g. [Coffey] and program below)

The complete Bell polynomial of the first n primes gives A007446.

(End)

REFERENCES

See A036040 for the column labeled "M_3" in Abramowitz and Stegun, Handbook, p. 831.

LINKS

M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972 [alternative scanned copy].

Wikipedia, Cumulant.

Wikipedia, Bell polynomials [From Tilman Neumann (Tilman.Neumann(AT)web.de), Oct 05 2008]

Mark W. Coffey, A Set of Identities for a Class of Alternating Binomial Sums Arising in Computing Applications [From Tilman Neumann (Tilman.Neumann(AT)web.de), Oct 05 2008]

EXAMPLE

1; 1,1; 1,3,1; 1,4,3,6,1; ...

Row 4 represents 1*k(4)+4*k(3)*k(1)+3*k(2)^2+6*k(2)*k(1)^2+1*k(1)^4 and T(4,4)=6 since there are six ways of partitioning four labeled items into one part with two items and two parts each with one item.

MATHEMATICA

<<DiscreteMath`Combinatorica`; runs[li:{__Integer}] := ((Length/@ Split[ # ]))&[Sort@ li]; Table[Apply[Multinomial, Partitions[w], {1}]/Apply[Times, (runs/@ Partitions[w])!, {1}], {w, 6}]

PROGRAM

Contribution from Tilman Neumann (Tilman.Neumann(AT)web.de), Oct 05 2008: (Start)

(Other) completeBellMatrix := proc(x, n)

// x - vector x[1]...x[m], m>=n

local i, j, M;

begin

M:=matrix(n, n): // zero-initialized

for i from 1 to n-1 do

M[i, i+1]:=-1:

end_for:

for i from 1 to n do

for j from 1 to i do

M[i, j] := binomial(i-1, j-1)*x[i-j+1]:

end_for:

end_for:

return (M):

end_proc:

completeBellPoly := proc(x, n)

begin

return (linalg::det(completeBellMatrix(x, n))):

end_proc:

for i from 1 to 10 do print(i, completeBellPoly(x, i)): end_for:

(End)

CROSSREFS

See A036040 for another version. Cf. A036036-A036039.

Row sums are A000110.

Cf. A007446 [From Tilman Neumann (Tilman.Neumann(AT)web.de), Oct 05 2008]

Sequence in context: A126015 A144336 A036040 this_sequence A077228 A049687 A132735

Adjacent sequences: A080572 A080573 A080574 this_sequence A080576 A080577 A080578

KEYWORD

nonn,easy,nice,tabf

AUTHOR

Wouter Meeussen, Mar 23, 2003

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 November 25 20:09 EST 2009. Contains 167514 sequences.


AT&T Labs Research