login
This site is supported by donations to The OEIS Foundation.
Logo

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A123160 Triangle read by rows: T(0,0)=1; T(n,k)=n!(n+k-1)!/[(n-k)!(n-1)!(k!)^2] for 0 <= k <= n. 2
1, 1, 1, 1, 4, 3, 1, 9, 18, 10, 1, 16, 60, 80, 35, 1, 25, 150, 350, 350, 126, 1, 36, 315, 1120, 1890, 1512, 462, 1, 49, 588, 2940, 7350, 9702, 6468, 1716, 1, 64, 1008, 6720, 23100, 44352, 48048, 27456, 6435, 1, 81, 1620, 13860, 62370, 162162, 252252, 231660 (list; table; graph; refs; listen; history; internal format)
OFFSET

0,5

COMMENTS

T(n,k) is also the number of order-preserving partial transformations (of an n-element chain) of width k (width(alpha) = |Dom(alpha)|). [From A. Umar (aumarh(AT)squ.edu.om), Aug 25 2008]

REFERENCES

Frederick T. Wall, Chemical Thermodynamics, W. H. Freeman, San Francisco, 1965 pages 296 and 305

LINKS

Laradji, A. and Umar, A. Combinatorial results for semigroups of order-preserving partial transformations, Journal of Algebra 278, (2004), 342-359.

Laradji, A. and Umar, A. Combinatorial results for semigroups of order-decreasing partial transformations, J. Integer Seq. 7 (2004), 04.3.8

FORMULA

T(n,k) = binom(n,k)*binom(n+k-1,k). The row polynomials (except the first) are (1+x)*P(n,0,1,2x+1), where P(n,a,b,x) denotes the Jacobi polynomial. The columns of this triangle give the diagonals of A122899. - Peter Bala (pbala(AT)toucansurf.com), Jan 24 2008

Or, T(n,k)=binom(n,k)*(n+k-1)!/((n-1)!*k!.

a(n,m) = If [n == m == 0, 1, n!*(n + m - 1)!/((n - m)!*(n - 1)!(m!)^2)]

T(n,k)= C(n,k)*C(n+k-1,n-1) [From A. Umar (aumarh(AT)squ.edu.om), Aug 25 2008]

EXAMPLE

Triangle begins:

1

1, 1

1, 4, 3

1, 9, 18, 10

1, 16, 60, 80, 35

1, 25, 150, 350, 350, 126

...

MAPLE

T:=proc(n, k) if k=0 and n=0 then 1 elif k<=n then n!*(n+k-1)!/(n-k)!/(n-1)!/(k!)^2 else 0 fi end: for n from 0 to 10 do seq(T(n, k), k=0..n) od; # yields sequence in triangular form

MATHEMATICA

t[n_, m_] = If [n == m == 0, 1, n!*(n + m - 1)!/((n - m)!*(n - 1)!(m!)^2)]; a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[a]

CROSSREFS

Cf. A059481, A122899.

Sequence in context: A165732 A197698 A193011 * A039758 A109692 A157894

Adjacent sequences:  A123157 A123158 A123159 * A123161 A123162 A123163

KEYWORD

nonn,tabl

AUTHOR

Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 02 2006

EXTENSIONS

Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 26 2006 and Jul 03 2008

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified February 14 23:53 EST 2012. Contains 205689 sequences.