A002874 -id:A002874 - cp's OEIS frontend

A036076 Expansion of e.g.f. exp((exp(p*x)-p-1)/p+exp(x)) for p=6.

1, 2, 11, 87, 844, 9599, 125545, 1854234, 30407763, 546409567, 10654642428, 223763443039, 5030118977041, 120393730088818, 3054106291046267, 81792080931311015, 2304639285452820684, 68117438479292896255

Offset: 0

N. J. A. Sloane

nonn

T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176.
T. S. Motzkin, Sorting numbers ...: for a link to an annotated scanned version of this paper see A000262.

Robert Israel, Table of n, a(n) for n = 0..437
Vaclav Kotesovec, Asymptotics for a certain group of exponential generating functions, arXiv:2207.10568 [math.CO], Jul 13 2022.
Index entries for sequences related to sorting

Cf. A001861, A002872, A002873, A002874, A002875, A036074, ...

egf:=  exp((exp(6*x)-6-1)/6+exp(x)):
S:= series(egf,x,501):
seq(coeff(S,x,i)*i!, i=0..20); # Robert Israel, Nov 27 2022

mx = 16; p = 6; 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[Sum[Binomial[n,k] * 6^k * BellB[k, 1/6] * BellB[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jun 29 2022 *)

a(n) ~ exp(exp(p*r)/p + exp(r) - 1 - 1/p - n) * (n/r)^(n + 1/2) / sqrt((1 + p*r)*exp(p*r) + (1 + r)*exp(r)), where r = LambertW(p*n)/p - 1/(1 + p/LambertW(p*n) + n^(1 - 1/p) * (1 + LambertW(p*n)) * (p/LambertW(p*n))^(2 - 1/p)) for p=6. - Vaclav Kotesovec, Jul 03 2022

a(n) ~ (6*n/LambertW(6*n))^n * exp(n/LambertW(6*n) + (6*n/LambertW(6*n))^(1/6) - n - 7/6) / sqrt(1 + LambertW(6*n)). - Vaclav Kotesovec, Jul 10 2022

Edited by N. J. A. Sloane, Jul 11 2008 at the suggestion of Franklin T. Adams-Watters.

A036081 The number of partitions of {1..(11n)} that are invariant under a permutation consisting of n 11-cycles.

Original entry on oeis.org

1, 2, 16, 202, 3044, 52794, 1055260, 24081754, 615896308, 17347970202, 531721375308, 17595339114554, 624882463734756, 23691503493287738, 954301756159098172, 40665568780962213530, 1826521141853468785364

Offset: 0

N. J. A. Sloane

nonn

Original name: Sorting numbers.

Vincenzo Librandi, Table of n, a(n) for n = 0..200
Vaclav Kotesovec, Asymptotics for a certain group of exponential generating functions, arXiv:2207.10568 [math.CO], Jul 13 2022.
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
Index entries for sequences related to sorting

Cf. A001861, A002872, A002873, A002874, A002875, A036074.

Column 11 of A162663.

u[0, j_] := 1; u[k_, j_] := u[k, j] = Sum[Binomial[k-1, i-1]Plus@@(u[k-i, j]#^(i-1)&/@Divisors[j]), {i, k}]; Table[u[n, 11], {n, 0, 30}] (* Vincenzo Librandi, Dec 12 2012 - after Wouter Meeussen in similar sequences *)
mx = 16; p = 11; 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[Sum[Binomial[n,k] * 11^k * BellB[k, 1/11] * BellB[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jun 29 2022 *)

E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=11.
a(n) ~ exp(exp(p*r)/p + exp(r) - 1 - 1/p - n) * (n/r)^(n + 1/2) / sqrt((1 + p*r)*exp(p*r) + (1 + r)*exp(r)), where r = LambertW(p*n)/p - 1/(1 + p/LambertW(p*n) + n^(1 - 1/p) * (1 + LambertW(p*n)) * (p/LambertW(p*n))^(2 - 1/p)) for p=11. - Vaclav Kotesovec, Jul 03 2022
a(n) ~ (11*n/LambertW(11*n))^n * exp(n/LambertW(11*n) + (11*n/LambertW(11*n))^(1/11) - n - 12/11) / sqrt(1 + LambertW(11*n)). - Vaclav Kotesovec, Jul 10 2022

New name from Danny Rorabaugh, Oct 24 2015

A036079 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=9.

Original entry on oeis.org

1, 2, 14, 150, 1942, 29174, 505318, 9957798, 219177942, 5303780758, 139554619206, 3962202725254, 120644298135478, 3918518255860342, 135117086088186662, 4925731652244913766, 189170325211554345366, 7629758975467859662678, 322296334808561664346886

Offset: 0

N. J. A. Sloane

nonn

T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176.
T. S. Motzkin, Sorting numbers ...: for a link to an annotated scanned version of this paper see A000262.

Vaclav Kotesovec, Asymptotics for a certain group of exponential generating functions, arXiv:2207.10568 [math.CO], Jul 13 2022.
Index entries for sequences related to sorting

Cf. A001861, A002872, A002873, A002874, A002875, A036074...

mx = 16; p = 9; 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[Sum[Binomial[n,k] * 9^k * BellB[k, 1/9] * BellB[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jun 29 2022 *)

a(n) ~ exp(exp(p*r)/p + exp(r) - 1 - 1/p - n) * (n/r)^(n + 1/2) / sqrt((1 + p*r)*exp(p*r) + (1 + r)*exp(r)), where r = LambertW(p*n)/p - 1/(1 + p/LambertW(p*n) + n^(1 - 1/p) * (1 + LambertW(p*n)) * (p/LambertW(p*n))^(2 - 1/p)) for p=9. - Vaclav Kotesovec, Jul 03 2022

a(n) ~ (9*n/LambertW(9*n))^n * exp(n/LambertW(9*n) + (9*n/LambertW(9*n))^(1/9) - n - 10/9) / sqrt(1 + LambertW(9*n)). - Vaclav Kotesovec, Jul 10 2022

Edited by N. J. A. Sloane, Jul 11 2008 at the suggestion of Franklin T. Adams-Watters.

A036080 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=10.

Original entry on oeis.org

1, 2, 15, 175, 2452, 39703, 741177, 15771270, 375485507, 9837064575, 280338965720, 8623355105347, 284589703065137, 10022926411599482, 374900187362983015, 14830483377507515247, 618219446355189917804, 27071966121397255354079, 1241912851303663452150377

Offset: 0

N. J. A. Sloane

nonn

T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176.
T. S. Motzkin, Sorting numbers ...: for a link to an annotated scanned version of this paper see A000262.

Vaclav Kotesovec, Asymptotics for a certain group of exponential generating functions, arXiv:2207.10568 [math.CO], Jul 13 2022.
Index entries for sequences related to sorting

Cf. A001861, A002872, A002873, A002874, A002875, A036074, ...

mx = 16; p = 10; 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[Sum[Binomial[n,k] * 10^k * BellB[k, 1/10] * BellB[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jun 29 2022 *)

a(n) ~ exp(exp(p*r)/p + exp(r) - 1 - 1/p - n) * (n/r)^(n + 1/2) / sqrt((1 + p*r)*exp(p*r) + (1 + r)*exp(r)), where r = LambertW(p*n)/p - 1/(1 + p/LambertW(p*n) + n^(1 - 1/p) * (1 + LambertW(p*n)) * (p/LambertW(p*n))^(2 - 1/p)) for p=10. - Vaclav Kotesovec, Jul 03 2022

a(n) ~ (10*n/LambertW(10*n))^n * exp(n/LambertW(10*n) + (10*n/LambertW(10*n))^(1/10) - n - 11/10) / sqrt(1 + LambertW(10*n)). - Vaclav Kotesovec, Jul 10 2022

Edited by N. J. A. Sloane, Jul 11 2008 at the suggestion of Franklin T. Adams-Watters.

A036082 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=12.

Original entry on oeis.org

1, 2, 17, 231, 3724, 68819, 1464781, 35645040, 973624491, 29313919207, 960689482494, 33997330377817, 1291521482389621, 52395164853506674, 2259005857941805253, 103064324686839195035, 4957382457319437575820, 250592665906288206715951, 13275467282249493427541201

Offset: 0

N. J. A. Sloane

nonn

In general, for p>=2, a(n) ~ c * (p*n/LambertW(p*n))^n * exp(n/LambertW(p*n) + (p*n/LambertW(p*n))^(1/p) - n - 1 - 1/p) / sqrt(1 + LambertW(p*n)), where c = 1 for p>=3 and c = exp(-1/4) for p=2. - Vaclav Kotesovec, Jul 10 2022

T. S. Motzkin, Sorting numbers for cylinders and other classification numbers, in Combinatorics, Proc. Symp. Pure Math. 19, AMS, 1971, pp. 167-176.
T. S. Motzkin, Sorting numbers ...: for a link to an annotated scanned version of this paper see A000262.

Vaclav Kotesovec, Asymptotics for a certain group of exponential generating functions, arXiv:2207.10568 [math.CO], Jul 13 2022.
Index entries for sequences related to sorting

Cf. A001861, A002872, A002873, A002874, A002875, A036074, ...

mx = 16; p = 12; 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[Sum[Binomial[n,k] * 12^k * BellB[k, 1/12] * BellB[n-k], {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec, Jun 29 2022 *)

a(n) ~ exp(exp(p*r)/p + exp(r) - 1 - 1/p - n) * (n/r)^(n + 1/2) / sqrt((1 + p*r)*exp(p*r) + (1 + r)*exp(r)), where r = LambertW(p*n)/p - 1/(1 + p/LambertW(p*n) + n^(1 - 1/p) * (1 + LambertW(p*n)) * (p/LambertW(p*n))^(2 - 1/p)) for p=12. - Vaclav Kotesovec, Jul 03 2022

a(n) ~ (12*n/LambertW(12*n))^n * exp(n/LambertW(12*n) + (12*n/LambertW(12*n))^(1/12) - n - 13/12) / sqrt(1 + LambertW(12*n)). - Vaclav Kotesovec, Jul 10 2022

Edited by N. J. A. Sloane, Jul 11 2008 at the suggestion of Franklin T. Adams-Watters.

A355396 Expansion of e.g.f. exp(exp(3*x)/3 - exp(x) + 2/3).

Original entry on oeis.org

1, 0, 2, 8, 38, 240, 1782, 14728, 134598, 1352800, 14800502, 174593848, 2205456838, 29676417680, 423455081142, 6381678299368, 101217742764358, 1684357485887680, 29328589792496502, 533062885681064088, 10091434399407455558, 198592474864415055600

Offset: 0

Seiichi Manyama, Jun 30 2022

nonn

Cf. A002874, A355378.

nmax = 20; CoefficientList[Series[Exp[Exp[3*x]/3 - Exp[x] + 2/3], {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Jun 30 2022 *)

my(N=30, x='x+O('x^N)); Vec(serlaplace(exp(exp(3*x)/3-exp(x)+2/3)))

a_vector(n) = my(v=vector(n+1)); v[1]=1; for(i=1, n, v[i+1]=sum(j=1, i, (3^(j-1)-1)*binomial(i-1, j-1)*v[i-j+1])); v;

a(0) = 1; a(n) = Sum_{k=1..n} (3^(k-1) - 1) * binomial(n-1,k-1) * a(n-k).
a(n) ~ exp(exp(3*r)/3 - exp(r) + 2/3 - n) * (n/r)^(n + 1/2) / sqrt((1 + 3*r)*exp(3*r) - (1 + r)*exp(r)), where r = LambertW(3*n)/3 - 1/(1 + 3/LambertW(3*n) - 3^(5/3) * n^(2/3) * (1 + LambertW(3*n)) / LambertW(3*n)^(5/3)). - Vaclav Kotesovec, Jul 05 2022
a(n) ~ (3*n/LambertW(3*n))^n * exp(n/LambertW(3*n) - (n/(LambertW(3*n)/3))^(1/3) - n + 2/3) / sqrt(1 + LambertW(3*n)). - Vaclav Kotesovec, Jul 10 2022

cp's OEIS Frontend

A036076 Expansion of e.g.f. exp((exp(p*x)-p-1)/p+exp(x)) for p=6.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Maple

Mathematica

Formula

Extensions

A036081 The number of partitions of {1..(11n)} that are invariant under a permutation consisting of n 11-cycles.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A036079 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=9.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A036080 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=10.

Views

Author

Keywords

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A036082 E.g.f.: exp((exp(p*x)-p-1)/p+exp(x)) for p=12.

Views

Author

Keywords

Comments

References

Links

Crossrefs

Programs

Mathematica

Formula

Extensions

A355396 Expansion of e.g.f. exp(exp(3*x)/3 - exp(x) + 2/3).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

PARI

Formula