A189233 -id:A189233 - cp's OEIS frontend

A001861 Expansion of e.g.f. exp(2*(exp(x) - 1)).

1, 2, 6, 22, 94, 454, 2430, 14214, 89918, 610182, 4412798, 33827974, 273646526, 2326980998, 20732504062, 192982729350, 1871953992254, 18880288847750, 197601208474238, 2142184050841734, 24016181943732414, 278028611833689478, 3319156078802044158, 40811417293301014150

Offset: 0

N. J. A. Sloane, Simon Plouffe

Values of Bell polynomials: ways of placing n labeled balls into n unlabeled (but 2-colored) boxes.
First column of the square of the matrix exp(P)/exp(1) given in A011971. - Gottfried Helms, Mar 30 2007
Base matrix in A011971, second power in A078937, third power in A078938, fourth power in A078939. - Gottfried Helms, Apr 08 2007
Equals row sums of triangle A144061. - Gary W. Adamson, Sep 09 2008
Equals eigensequence of triangle A109128. - Gary W. Adamson, Apr 17 2009
Hankel transform is A108400. - Paul Barry, Apr 29 2009
The number of ways of putting n labeled balls into a set of bags and then putting the bags into 2 labeled boxes. An example is given below. - Peter Bala, Mar 23 2013
The f-vectors of n-dimensional hypercube are given by A038207 = exp[M*B(.,2)] = exp[M*A001861(.)] where M = A238385-I and (B(.,x))^n = B(n,x) are the Bell polynomials (cf. A008277). - Tom Copeland, Apr 17 2014
Moments of the Poisson distribution with mean 2. - Vladimir Reshetnikov, May 17 2016
Exponential self-convolution of Bell numbers (A000110). - Vladimir Reshetnikov, Oct 06 2016

			a(2) = 6: The six ways of putting 2 balls into bags (denoted by { }) and then into 2 labeled boxes (denoted by [ ]) are
01: [{1,2}] [ ];
02: [ ] [{1,2}];
03: [{1}] [{2}];
04: [{2}] [{1}];
05: [{1} {2}] [ ];
06: [ ] [{1} {2}].
- _Peter Bala_, Mar 23 2013

N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Seiichi Manyama, Table of n, a(n) for n = 0..558 (terms 0..100 from T. D. Noe)
M. Aigner, A characterization of the Bell numbers, Discr. Math., 205 (1999), 207-210.
Michael Anshelevich, Product formulas on posets, Wick products, and a correction for the q-Poisson process, arXiv:1708.08034 [math.OA], 2017, See Proposition 34 p. 25.
Diego Arcis, Camilo González, and Sebastián Márquez, Symmetric functions in noncommuting variables in superspace, arXiv:2312.00574 [math.CO], 2023.
C. Banderier, M. Bousquet-Mélou, A. Denise, P. Flajolet, D. Gardy and D. Gouyou-Beauchamps, Generating Functions for Generating Trees, Discrete Mathematics 246(1-3), March 2002, pp. 29-55.
J. M. Borwein, Adventures with the OEIS: Five sequences Tony may like, Guttmann 70th [Birthday] Meeting, 2015, revised May 2016.
J. M. Borwein, Adventures with the OEIS: Five sequences Tony may like, Guttmann 70th [Birthday] Meeting, 2015, revised May 2016. [Cached copy, with permission]
Jacques Carlier and Corinne Lucet, A decomposition algorithm for network reliability evaluation. In First International Colloquium on Graphs and Optimization (GOI), 1992 (Grimentz). Discrete Appl. Math. 65 (1996), 141-156 (see page 152 and Fig 6).
Adam M. Goyt and Lara K. Pudwell, Avoiding colored partitions of two elements in the pattern sense, arXiv preprint arXiv:1203.3786 [math.CO], 2012. - From _N. J. A. Sloane_, Sep 17 2012
Wan-Ming Guo and Lily Li Liu, Asymptotic normality of the Stirling-Whitney-Riordan triangle, Filomat (2023) Vol. 37, No. 9, 2923-2934.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 66 [broken link?]
Marin Knežević, Vedran Krčadinac, and Lucija Relić, Matrix products of binomial coefficients and unsigned Stirling numbers, arXiv:2012.15307 [math.CO], 2020.
G. Labelle et al., Stirling numbers interpolation using permutations with forbidden subsequences, Discrete Math. 246 (2002), 177-195.
Huyile Liang, Jeffrey Remmel, and Sainan Zheng, Stieltjes moment sequences of polynomials, arXiv:1710.05795 [math.CO], 2017, see page 20.
T. Mansour, M. Shattuck and D. G. L. Wang, Recurrence relations for patterns of type (2, 1) in flattened permutations, arXiv preprint arXiv:1306.3355 [math.CO], 2013.
Victor Meally, Comparison of several sequences given in Motzkin's paper "Sorting numbers for cylinders...", letter to N. J. A. Sloane, N. D.
T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176. [Annotated, scanned copy]
OEIS Wiki, Sorting numbers
J. Riordan, Letter to N. J. A. Sloane, Oct. 1970
J. Riordan, Letter, Oct 31 1977
Frank Simon, Algebraic Methods for Computing the Reliability of Networks, Dissertation, Doctor Rerum Naturalium (Dr. rer. nat.), Fakultät Mathematik und Naturwissenschaften der Technischen Universität Dresden, 2012. See Table 5.1. - From _N. J. A. Sloane_, Jan 04 2013
Amit Kumar Singh, Akash Kumar and Thambipillai Srikanthan, Accelerating Throughput-aware Run-time Mapping for Heterogeneous MPSoCs, ACM Transactions on Design Automation of Electronic Systems, 2012. - From _N. J. A. Sloane_, Dec 24 2012
Jacob Sprittulla, On Colored Factorizations, arXiv:2008.09984 [math.CO], 2020.

For boxes of 1 color, see A000110, for 3 colors see A027710, for 4 colors see A078944, for 5 colors see A144180, for 6 colors see A144223, for 7 colors see A144263, for 8 colors see A221159.
First column of A078937.
Equals 2*A035009(n), n>0.
Row sums of A033306, A036073, A049020, and A144061.
Cf. A000110, A000587, A002871, A027710, A056857, A068199, A068200, A068201, A078937, A078938, A078944, A078945, A109128, A129323, A129324, A129325, A129327, A129328, A129329, A129331, A129332, A129333, A144180, A144223, A144263, A189233, A213170, A221159, A221176.

[&+[2^k*StirlingSecond(n, k): k in [0..n]]: n in [0..25]]; // Vincenzo Librandi, May 18 2019

A001861:=n->add(Stirling2(n,k)*2^k, k=0..n); seq(A001861(n), n=0..20); # Wesley Ivan Hurt, Apr 18 2014
# second Maple program:
b:= proc(n, m) option remember;
     `if`(n=0, 2^m, m*b(n-1, m)+b(n-1, m+1))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..25);  # Alois P. Heinz, Aug 04 2021

Table[Sum[StirlingS2[n, k]*2^k, {k, 0, n}], {n, 0, 21}] (* Geoffrey Critzer, Oct 06 2009 *)
mx = 16; p = 1; Range[0, mx]! CoefficientList[ Series[ Exp[ (Exp[p*x] - p - 1)/p + Exp[x]], {x, 0, mx}], x] (* Robert G. Wilson v, Dec 12 2012 *)
Table[BellB[n, 2], {n, 0, 20}] (* Vaclav Kotesovec, Jan 06 2013 *)

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

{a(n)=polcoeff(sum(m=0, n, 2^m*x^m/prod(k=1,m,1-k*x +x*O(x^n))), n)} /* Paul D. Hanna, Feb 15 2012 */

{a(n) = sum(k=0, n, 2^k*stirling(n, k, 2))} \\ Seiichi Manyama, Jul 28 2019

expnums(30, 2) # Zerinvary Lajos, Jun 26 2008

a(n) = Sum_{k=0..n} 2^k*Stirling2(n, k). - Emeric Deutsch, Oct 20 2001
a(n) = exp(-2)*Sum_{k>=1} 2^k*k^n/k!. - Benoit Cloitre, Sep 25 2003
G.f. satisfies 2*(x/(1-x))*A(x/(1-x)) = A(x) - 1; twice the binomial transform equals the sequence shifted one place left. - Paul D. Hanna, Dec 08 2003
PE = exp(matpascal(5)-matid(6)); A = PE^2; a(n)=A[n,1]. - Gottfried Helms, Apr 08 2007
G.f.: 1/(1-2x-2x^2/(1-3x-4x^2/(1-4x-6x^2/(1-5x-8x^2/(1-6x-10x^2/(1-... (continued fraction). - Paul Barry, Apr 29 2009
O.g.f.: Sum_{n>=0} 2^n*x^n / Product_{k=1..n} (1-k*x). - Paul D. Hanna, Feb 15 2012
a(n) ~ exp(-2-n+n/LambertW(n/2))*n^n/LambertW(n/2)^(n+1/2). - Vaclav Kotesovec, Jan 06 2013
G.f.: (G(0) - 1)/(x-1)/2 where G(k) = 1 - 2/(1-k*x)/(1-x/(x-1/G(k+1) )); (continued fraction). - Sergei N. Gladkovskii, Jan 16 2013
G.f.: 1/Q(0) where Q(k) =  1 + x*k - x - x/(1 - 2*x*(k+1)/Q(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Mar 07 2013
G.f.: ((1+x)/Q(0)-1)/(2*x), where Q(k) = 1 - (k+1)*x - 2*(k+1)*x^2/Q(k+1); (continued fraction). - Sergei N. Gladkovskii, May 03 2013
G.f.: T(0)/(1-2*x), where T(k) = 1 - 2*x^2*(k+1)/( 2*x^2*(k+1) - (1-2*x-x*k)*(1-3*x-x*k)/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Oct 24 2013
a(n) = Sum_{k=0..n} A033306(n,k) = Sum_{k=0..n} binomial(n,k)*Bell(k)*Bell(n-k), where Bell = A000110 (see Motzkin, p. 170). - Danny Rorabaugh, Oct 18 2015
a(0) = 1 and a(n) = 2 * Sum_{k=0..n-1} binomial(n-1,k)*a(k) for n > 0. - Seiichi Manyama, Sep 25 2017 [corrected by Ilya Gutkovskiy, Jul 12 2020]

A027710 Number of ways of placing n labeled balls into n unlabeled (but 3-colored) boxes.

Original entry on oeis.org

1, 3, 12, 57, 309, 1866, 12351, 88563, 681870, 5597643, 48718569, 447428856, 4318854429, 43666895343, 461101962108, 5072054649573, 57986312752497, 687610920335610, 8442056059773267, 107135148331162767, 1403300026585387686, 18946012544520590991

Offset: 0

George Yuhasz (gyuhasz(AT)vt.edu) and John W. Layman

nonn

Binomial transform of this sequence is A078940 and a(n+1) = 3*A078940(n). - Paul D. Hanna, Dec 08 2003
First column of the cube of the matrix exp(P)/exp(1) given in A011971. - Gottfried Helms, Mar 30 2007. Base matrix in A011971, second power in A078937, third power in A078938, fourth power in A078939.
The number of ways of putting n labeled balls into a set of bags and then putting the bags into 3 labeled boxes. - Peter Bala, Mar 23 2013

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Amit Kumar Singh, Akash Kumar and Thambipillai Srikanthan, Accelerating Throughput-aware Run-time Mapping for Heterogeneous MPSoCs, ACM Transactions on Design Automation of Electronic Systems, 2012. - From _N. J. A. Sloane_, Dec 24 2012
Jacob Sprittulla, On Colored Factorizations, arXiv:2008.09984 [math.CO], 2020.

Cf. A000110, A001861, A056857, A078937, A078938, A078940, A078944, A078945, A129323, A129324, A129325, A129327, A129328, A129329, A129331, A129332, A129333, A144180, A144223, A144263, A189233, A221159, A221176.

b:= proc(n, m) option remember; `if`(n=0,
      1, m*b(n-1, m)+3*b(n-1, m+1))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..27);  # Alois P. Heinz, Aug 03 2021

colors=3; Array[ bell, 25 ]; For[ x=1, x<=25, x++, bell[ x ]=0 ]; bell[ 1 ]=colors;
Print[ "1 ", colors ]; For[ n=2, n<=25, n++, bell[ n ]=colors*bell[ n-1 ];
For[ i=1, n-i>1, i++, bell[ n-i ]=bell[ n-i ]*(n-i)+colors*bell[ n-i-1 ] ];
bellsum=0; For[ t=0, tVaclav Kotesovec, Mar 12 2014 *)

a(n)=if(n<0,0,n!*polcoeff(exp(3*(exp(x+x*O(x^n))-1)),n))

from sage.combinat.expnums import expnums2
expnums(22, 3) # Zerinvary Lajos, Jun 26 2008

E.g.f.: exp {3(e^x-1)}. - Michael Somos, Oct 18 2002
a(n) = exp(-3)*Sum_{k>=0} 3^k*k^n/k!. - Benoit Cloitre, Sep 25 2003
G.f.: 3*(x/(1-x))*A(x/(1-x)) = A(x) - 1; thrice the binomial transform equals the sequence shifted one place left. - Paul D. Hanna, Dec 08 2003
a(n) = Sum_{k = 0..n} 3^k*A048993(n, k); A048993: Stirling2 numbers. - Philippe Deléham, May 09 2004
PE=exp(matpascal(5))/exp(1); A = PE^3; a(n)= A[ n,1 ] with exact integer arithmetic: PE=exp(matpascal(5)-matid(6)); A = PE^3; a(n)=A[ n,1]. - Gottfried Helms, Apr 08 2007
G.f.: (G(0) - 1)/(x-1)/3 where G(k) =  1 - 3/(1-k*x)/(1-x/(x-1/G(k+1) )); (recursively defined continued fraction). - Sergei N. Gladkovskii, Jan 16 2013
G.f.: T(0)/(1-3*x), where T(k) = 1 - 3*x^2*(k+1)/( 3*x^2*(k+1) - (1-3*x-x*k)*(1-4*x-x*k)/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Oct 24 2013
a(n) ~ n^n * exp(n/LambertW(n/3)-3-n) / (sqrt(1+LambertW(n/3)) * LambertW(n/3)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 3^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 07 2019

Entry revised by N. J. A. Sloane, Apr 25 2007

A078944 First column of A078939, the fourth power of lower triangular matrix A056857.

Original entry on oeis.org

1, 4, 20, 116, 756, 5428, 42356, 355636, 3188340, 30333492, 304716148, 3218555700, 35618229364, 411717043252, 4957730174836, 62045057731892, 805323357485684, 10820999695801908, 150271018666120564, 2153476417340487476

Offset: 0

Paul D. Hanna, Dec 18 2002

nonn

Also, the number of ways of placing n labeled balls into n unlabeled (but 4-colored) boxes. Binomial transform of this sequence is A078945 and a(n+1) = 4*A078945(n). - Paul D. Hanna, Dec 08 2003
First column of PE^4, where PE is given in A011971, second power in A078937, third power in A078938, fourth power in A078939. - Gottfried Helms, Apr 08 2007
The number of ways of putting n labeled balls into a set of bags and then putting the bags into 4 labeled boxes. - Peter Bala, Mar 23 2013
Exponential self-convolution of A001861. - Vladimir Reshetnikov, Oct 06 2016

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Frank Simon, Algebraic Methods for Computing the Reliability of Networks, Dissertation, Doctor Rerum Naturalium (Dr. rer. nat.), Fakultät Mathematik und Naturwissenschaften der Technischen Universität Dresden, 2012. See Table 5.1. - From _N. J. A. Sloane_, Jan 04 2013

Cf. A000110, A001861, A027710, A056857, A078937, A078938, A078939, A078944, A078945, A129323, A129324, A129325, A129327, A129328, A129329, A129331, A129332, A129333, A144180, A144223, A144263, A189233, A221159, A221176.

A056857 := proc(n,c) combinat[bell](n-1-c)*binomial(n-1,c) ; end: A078937 := proc(n,c) add( A056857(n,k)*A056857(k+1,c),k=0..n) ; end: A078938 := proc(n,c) add( A078937(n,k)*A056857(k+1,c),k=0..n) ; end: A078939 := proc(n,c) add( A078938(n,k)*A056857(k+1,c),k=0..n) ; end: A078944 := proc(n) A078939(n+1,0) ; end: seq(A078944(n),n=0..25) ; # R. J. Mathar, May 30 2008
# second Maple program:
b:= proc(n, m) option remember; `if`(n=0, 4^m,
      add(b(n-1, max(m, j)), j=1..m+1))
    end:
a:= n-> b(n, 0):
seq(a(n), n=0..25);  # Alois P. Heinz, Aug 03 2021

Table[n!, {n, 0, 20}]CoefficientList[Series[E^(4E^x-4), {x, 0, 20}], x]
Table[BellB[n,4],{n,0,20}] (* Vaclav Kotesovec, Mar 12 2014 *)
With[{nn=20},CoefficientList[Series[Exp[4(Exp[x]-1)],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, May 03 2022 *)

expnums(20, 4) # Zerinvary Lajos, Jun 26 2008

PE=exp(matpascal(5))/exp(1); A = PE^4; a(n)= A[ n,1 ] with exact integer arithmetic: PE=exp(matpascal(5)-matid(6)); A = PE^4; a(n)=A[ n,1]. - Gottfried Helms, Apr 08 2007
E.g.f.: exp(4*(exp(x)-1)).
a(n) = exp(-4)*Sum_{k>=0} 4^k*k^n/k!. - Benoit Cloitre, Sep 25 2003
G.f.: 4*(x/(1-x))*A(x/(1-x)) = A(x) - 1; four times the binomial transform equals this sequence shifted one place left. - Paul D. Hanna, Dec 08 2003
a(n) = Sum_{k = 0..n} 4^k*A048993(n, k); A048993: Stirling2 numbers. - Philippe Deléham, May 09 2004
G.f.: (G(0) - 1)/(x-1)/4 where G(k) = 1 - 4/(1-k*x)/(1-x/(x-1/G(k+1))); (recursively defined continued fraction). - Sergei N. Gladkovskii, Jan 16 2013
G.f.: T(0)/(1-4*x), where T(k) = 1 - 4*x^2*(k+1)/(4*x^2*(k+1) - (1-(k+4)*x)*(1-(k+5)*x)/T(k+1)); (continued fraction). - Sergei N. Gladkovskii, Oct 28 2013
a(n) ~ n^n * exp(n/LambertW(n/4)-4-n) / (sqrt(1+LambertW(n/4)) * LambertW(n/4)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 4^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 07 2019

More terms from R. J. Mathar, May 30 2008

Edited by N. J. A. Sloane, Jul 02 2008 at the suggestion of R. J. Mathar

A242817 a(n) = B(n,n), where B(n,x) = Sum_{k=0..n} Stirling2(n,k)*x^k are the Bell polynomials (also known as exponential polynomials or Touchard polynomials).

Original entry on oeis.org

1, 1, 6, 57, 756, 12880, 268098, 6593839, 187104200, 6016681467, 216229931110, 8588688990640, 373625770888956, 17666550789597073, 902162954264563306, 49482106424507339565, 2901159958960121863952, 181069240855214001514460, 11985869691525854175222222

Offset: 0

Emanuele Munarini, May 23 2014

nonn

Alois P. Heinz, Table of n, a(n) for n = 0..370
Eric Weisstein's World of Mathematics, Bell Polynomial.
Wikipedia, Touchard polynomials

Cf. A035051, A292866, A346654, A346655.

Main diagonal of A189233 and of A292860.

A:= proc(n, k) option remember; `if`(n=0, 1, (1+
      add(binomial(n-1, j-1)*A(n-j, k), j=1..n-1))*k)
    end:
a:= n-> A(n$2):
seq(a(n), n=0..20);  # Alois P. Heinz, May 17 2016

Mathematica
```
Table[BellB[n, n], {n, 0, 100}]
```

a(n):=stirling2(n,0)+sum(stirling2(n,k)*n^k,k,1,n);
makelist(a(n),n,0,30);

a(n) = sum(k=0, n, stirling(n,k,2)*n^k); \\ Michel Marcus, Apr 20 2016

E.g.f.: x*f'(x)/f(x), where f(x) is the generating series for sequence A035051.
a(n) ~ (exp(1/LambertW(1)-2)/LambertW(1))^n * n^n / sqrt(1+LambertW(1)). - Vaclav Kotesovec, May 23 2014
Conjecture: It appears that the equation a(x)*e^x = Sum_{n=0..oo} ( (n^x*x^n)/n! ) is true for every positive integer x. - Nicolas Nagel, Apr 20 2016 [This is just the special case k=x of the formula  B(k,x) = e^(-x) * Sum_{n=0..oo} n^k*x^n/n!; see for example the World of Mathematics link. - Pontus von Brömssen, Dec 05 2020]
a(n) = n! * [x^n] exp(n*(exp(x)-1)). - Alois P. Heinz, May 17 2016
a(n) = [x^n] Sum_{k=0..n} n^k*x^k/Product_{j=1..k} (1 - j*x). - Ilya Gutkovskiy, May 31 2018

Name corrected by Pontus von Brömssen, Dec 05 2020

A144180 Number of ways of placing n labeled balls into n unlabeled (but 5-colored) boxes.

Original entry on oeis.org

1, 5, 30, 205, 1555, 12880, 115155, 1101705, 11202680, 120415755, 1362057155, 16151603830, 200144023805, 2584429030505, 34691478901030, 483040313859705, 6963313750468055, 103747357497925880, 1595132080103893655

Offset: 0

Philippe Deléham, Sep 12 2008

nonn

a(n) is also the exp transform of A010716. - Alois P. Heinz, Oct 09 2008

The number of ways of putting n labeled balls into a set of bags and then putting the bags into 5 labeled boxes. - Peter Bala, Mar 23 2013

Alois P. Heinz, Table of n, a(n) for n = 0..200
H. D. Nguyen, D. Taggart, Mining the OEIS: Ten Experimental Conjectures, 2013; Mentions this sequence. - From _N. J. A. Sloane_, Mar 16 2014
N. J. A. Sloane, Transforms

Cf. A000110, A001861, A027710, A078944. A144223, A144263, A189233, A221159, A221176.

a:= proc(n) option remember; `if`(n=0, 1,
      (1+add(binomial(n-1, k-1)*a(n-k), k=1..n-1))*5)
    end:
seq(a(n), n=0..25); # Alois P. Heinz, Oct 09 2008

Table[BellB[n,5],{n,0,20}] (* Vaclav Kotesovec, Mar 12 2014 *)

expnums(19, 5) # Zerinvary Lajos, May 15 2009

a(n) = Sum_{k=0..n} 5^k * A048993(n,k); A048993: Stirling2 numbers.
G.f.: A(x) satisfies 5*(x/(1-x))*A(x/(1-x)) = A(x)-1; five times the binomial transform equals this sequence shifted one place left.
E.g.f.: exp(5*(exp(x)-1)).
G.f.: (G(0) - 1)/(x-1)/5 where G(k) =  1 - 5/(1-k*x)/(1-x/(x-1/G(k+1) )); (recursively defined continued fraction). - Sergei N. Gladkovskii, Jan 16 2013
a(n) ~ n^n * exp(n/LambertW(n/5)-5-n) / (sqrt(1+LambertW(n/5)) * LambertW(n/5)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 5^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 07 2019

More terms from Alois P. Heinz, Oct 09 2008

A144223 Number of ways of placing n labeled balls into n unlabeled (but 6-colored) boxes.

Original entry on oeis.org

1, 6, 42, 330, 2850, 26682, 268098, 2869242, 32510850, 388109562, 4861622850, 63682081530, 869725707522, 12352785293562, 182049635623362, 2778394592545530, 43833623157604482, 713738052924821754

Offset: 0

Philippe Deléham, Sep 14 2008

nonn

a(n) is also the exp transform of A010722. - Alois P. Heinz, Oct 09 2008

The number of ways of putting n labeled balls into a set of bags and then putting the bags into 6 labeled boxes. - Peter Bala, Mar 23 2013

Alois P. Heinz, Table of n, a(n) for n = 0..200
N. J. A. Sloane, Transforms

Cf. A000110, A001861, A027710, A078944, A144180. A144263, A189233, A221159, A221176.

a:= proc(n) option remember; `if`(n=0, 1,
      (1+add(binomial(n-1, k-1)*a(n-k), k=1..n-1))*6)
    end:
seq(a(n), n=0..25); # Alois P. Heinz, Oct 09 2008

Table[BellB[n,6],{n,0,20}] (* Vaclav Kotesovec, Mar 12 2014 *)

expnums(18, 6) # Zerinvary Lajos, May 15 2009

a(n) = Sum_{k=0..n} 6^k*A048993(n,k); A048993: Stirling2 numbers.
G.f.: 6*(x/(1-x))*A(x/(1-x)) = A(x)-1; six times the binomial transform equals this sequence shifted one place left.
E.g.f.: exp(6(e^x-1)).
G.f.: T(0)/(1-6*x), where T(k) = 1 - 6*x^2*(k+1)/(6*x^2*(k+1) - (1-6*x-x*k)*(1-7*x-x*k)/T(k+1) ); (continued fraction). - Sergei N. Gladkovskii, Dec 04 2013
a(n) ~ n^n * exp(n/LambertW(n/6)-6-n) / (sqrt(1+LambertW(n/6)) * LambertW(n/6)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 6^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 07 2019

More terms from Alois P. Heinz, Oct 09 2008

A144263 Number of ways of placing n labeled balls into n unlabeled (but7-colored) boxes.

Original entry on oeis.org

1, 7, 56, 497, 4809, 50134, 558215, 6593839, 82187658, 1076193867, 14749823893, 210926792244, 3138696242941, 48485723853763, 775929767223352, 12840232627455485, 219355194338036309, 3862794707291567670

Offset: 0

Philippe Deléham, Sep 16 2008

nonn

a(n) is also the exp transform of A010727. - Alois P. Heinz, Oct 09 2008

The number of ways of putting n labeled balls into a set of bags and then putting the bags into 7 labeled boxes. - Peter Bala, Mar 23 2013

Alois P. Heinz, Table of n, a(n) for n = 0..200
N. J. A. Sloane, Transforms

Cf. A000110, A001861, A027710, A078944, A144180, A144223. A189233, A221159, A221176.

a:= proc(n) option remember; `if`(n=0, 1,
      (1+add(binomial(n-1, k-1)*a(n-k), k=1..n-1))*7)
    end:
seq(a(n), n=0..25); # Alois P. Heinz, Oct 09 2008

Table[BellB[n,7],{n,0,20}] (* Vaclav Kotesovec, Mar 12 2014 *)

expnums(18, 7) # Zerinvary Lajos, May 15 2009

a(n) = Sum_{k=0..n} 7^k*A048993(n,k); A048993: Stirling2 numbers.
E.g.f.: exp(7*(exp(x)-1)).
G.f.: 7*(x/(1-x))*A(x/(1-x))= A(x)-1; seven times the binomial transform equals this sequence shifted one place left.
a(n) ~ n^n * exp(n/LambertW(n/7)-7-n) / (sqrt(1+LambertW(n/7)) * LambertW(n/7)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 7^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 11 2019

More terms from Alois P. Heinz, Oct 09 2008

A221159 a(n) = Sum_{i=0..n} Stirling2(n,i)*2^(3i).

Original entry on oeis.org

1, 8, 72, 712, 7624, 87496, 1067976, 13781448, 187104200, 2661876168, 39549629384, 611918940616, 9834596715464, 163824830616008, 2823080829871048, 50238768569014728, 921839901090823112, 17416746966515278280, 338394913332895863752, 6753431112631087835592, 138296031340416209103816

Offset: 0

N. J. A. Sloane, Jan 04 2013

nonn

The number of ways of putting n labeled balls into a set of bags and then putting the bags into 8 labeled boxes. - Peter Bala, Mar 23 2013

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Frank Simon, Algebraic Methods for Computing the Reliability of Networks, Dissertation, Doctor Rerum Naturalium (Dr. rer. nat.), Fakultät Mathematik und Naturwissenschaften der Technischen Universität Dresden, 2012. See Table 5.1.

Cf. A000110, A001861, A078944, A221176, A027710, A144180, A144223, A144263, A189233.

Table[BellB[n,8],{n,0,20}] (* Vaclav Kotesovec, Mar 12 2014 *)

E.g.f.: exp(8*(exp(x) - 1)). - Peter Bala, Mar 23 2013
a(n) ~ n^n * exp(n/LambertW(n/8)-8-n) / (sqrt(1+LambertW(n/8)) * LambertW(n/8)^n). - Vaclav Kotesovec, Mar 12 2014
G.f.: Sum_{j>=0} 8^j*x^j / Product_{k=1..j} (1 - k*x). - Ilya Gutkovskiy, Apr 11 2019

A292860 Square array A(n,k), n>=0, k>=0, read by antidiagonals downwards, where column k is the expansion of e.g.f. exp(k*(exp(x) - 1)).

Original entry on oeis.org

1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 6, 5, 0, 1, 4, 12, 22, 15, 0, 1, 5, 20, 57, 94, 52, 0, 1, 6, 30, 116, 309, 454, 203, 0, 1, 7, 42, 205, 756, 1866, 2430, 877, 0, 1, 8, 56, 330, 1555, 5428, 12351, 14214, 4140, 0, 1, 9, 72, 497, 2850, 12880, 42356, 88563, 89918, 21147, 0

Offset: 0

Seiichi Manyama, Sep 25 2017

			Square array begins:
   1,   1,    1,     1,     1,      1,      1, ...
   0,   1,    2,     3,     4,      5,      6, ...
   0,   2,    6,    12,    20,     30,     42, ...
   0,   5,   22,    57,   116,    205,    330, ...
   0,  15,   94,   309,   756,   1555,   2850, ...
   0,  52,  454,  1866,  5428,  12880,  26682, ...
   0, 203, 2430, 12351, 42356, 115155, 268098, ...

Seiichi Manyama, Antidiagonals n = 0..139, flattened

Columns k=0-10 give: A000007, A000110, A001861, A027710, A078944, A144180, A144223, A144263, A221159, A276506, A276507.
Rows n=0..2 give A000012, A001477, A002378.
Main diagonal gives A242817.
Same array, different indexing is A189233.
Cf. A292861.

A:= proc(n, k) option remember; `if`(n=0, 1,
      (1+add(binomial(n-1, j-1)*A(n-j, k), j=1..n-1))*k)
    end:
seq(seq(A(n, d-n), n=0..d), d=0..12);  # Alois P. Heinz, Sep 25 2017

A[0, ] = 1; A[n /; n >= 0, k_ /; k >= 0] := A[n, k] = k*Sum[Binomial[n-1, j]*A[j, k], {j, 0, n-1}]; A[, ] = 0;
Table[A[n, d - n], {d, 0, 12}, {n, 0, d}] // Flatten (* Jean-François Alcover, Feb 13 2021 *)
A292860[n_, k_] := BellB[n, k]; Table[A292860[k, n - k], {n, 0, 10}, {k, 0, n}] // Flatten (* Peter Luschny, Dec 23 2021 *)

A(0,k) = 1 and A(n,k) = k * Sum_{j=0..n-1} binomial(n-1,j) * A(j,k) for n > 0.
A(n,k) = Sum_{j=0..n} k^j * Stirling2(n,j). - Seiichi Manyama, Jul 27 2019
A(n,k) = BellPolynomial(n, k). - Peter Luschny, Dec 23 2021

cp's OEIS Frontend

A001861 Expansion of e.g.f. exp(2*(exp(x) - 1)).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

PARI

Sage

Formula

A027710 Number of ways of placing n labeled balls into n unlabeled (but 3-colored) boxes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Sage

Formula

Extensions

A078944 First column of A078939, the fourth power of lower triangular matrix A056857.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Sage

Formula

Extensions

A242817 a(n) = B(n,n), where B(n,x) = Sum_{k=0..n} Stirling2(n,k)*x^k are the Bell polynomials (also known as exponential polynomials or Touchard polynomials).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Maxima

PARI

Formula

Extensions

A144180 Number of ways of placing n labeled balls into n unlabeled (but 5-colored) boxes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Sage

Formula

Extensions

A144223 Number of ways of placing n labeled balls into n unlabeled (but 6-colored) boxes.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs