A260491 -id:A260491 - cp's OEIS frontend

A260503 Coefficients in an asymptotic expansion of sequence A003319.

1, -2, -1, -5, -32, -253, -2381, -25912, -319339, -4388949, -66495386, -1100521327, -19751191053, -382062458174, -7924762051957, -175478462117633, -4132047373455024, -103115456926017761, -2718766185148876961, -75529218928863243200, -2205316818199975235447

Offset: 0

Vaclav Kotesovec, Jul 27 2015

sign

			A003319(n) / n! ~ 1 - 2/n - 1/n^2 - 5/n^3 - 32/n^4 - 253/n^5 - 2381/n^6 - ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..420

Cf. A003319, A259472, A261214, A261239, A261253, A261254.

Cf. A256168, A260491, A260530, A260532, A260578.

Flatten[{1, Table[Sum[Assuming[Element[x,Reals], SeriesCoefficient[E^(2/x)*x^2 / ExpIntegralEi[1/x]^2,{x,0,k}]] * StirlingS2[n-1,k-1], {k,1,n}], {n,1,20}]}] (* Vaclav Kotesovec, Aug 03 2015 *)

a(k) ~ -k! / (2 * (log(2))^(k+1)).
For n>0, Sum_{k=1..n} a(k) * Stirling1(n-1, k-1) = A259472(n). - Vaclav Kotesovec, Aug 03 2015
For n>0, a(n) = Sum_{k=1..n} A259472(k) * Stirling2(n-1, k-1). - Vaclav Kotesovec, Aug 03 2015

A111529 Row 2 of table A111528.

Original entry on oeis.org

1, 1, 4, 22, 148, 1156, 10192, 99688, 1069168, 12468208, 157071424, 2126386912, 30797423680, 475378906432, 7793485765888, 135284756985472, 2479535560687360, 47860569736036096, 970606394944476160, 20635652201785613824, 459015456156148876288, 10662527360021306782720

Offset: 0

Paul D. Hanna, Aug 06 2005

			(1/2)*log(1 + 2*x + 6*x^2 + ... + ((n+1)!/1!)*x^n + ...)
= x + (4/2)*x^2 + (22/3)*x^3 + (148/4)*x^4 + (1156/5)*x^5 + ...

Robert Israel, Table of n, a(n) for n = 0..410
Paul Barry, A note on number triangles that are almost their own production matrix, arXiv:1804.06801 [math.CO], 2018.
Richard J. Martin and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.
A. N. Stokes, Continued fraction solutions of the Riccati equation, Bull. Austral. Math. Soc. Vol. 25 (1982), 207-214.

Cf. A111528 (table), A003319 (row 1), A111530 (row 3), A111531 (row 4), A111532 (row 5), A111533 (row 6), A111534 (diagonal).

Cf. A077607, A089949, A260491.

N:= 30: # to get a(0) to a(N)
g:= 1/2*log(add((n+1)!*x^n,n=0..N+1)):
S:= series(g,x,N+1);
1, seq(j*coeff(S,x,j),j=0..N); # Robert Israel, Jul 10 2015

T[n_, k_] := T[n, k] = Which[n<0 || k<0, 0, k==0 || k==1, 1, n==0, k!, True, (T[n-1, k+1]-T[n-1, k])/n - Sum[T[n, j] T[n-1, k-j], {j, 1, k-1}]];
a[n_] := T[2, n];
Table[a[n], {n, 0, 21}] (* Jean-François Alcover, Aug 09 2018 *)

{a(n)=if(n<0,0,if(n==0,1, (n/2)*polcoeff(log(sum(m=0,n,(m+1)!/1!*x^m)),n)))}

G.f.: (1/2)*log(Sum_{n >= 0} (n+1)!*x^n) = Sum_{n >= 1} a(n)*x^n/n.
G.f.: 1/(1+2*x - 3*x/(1+3*x - 4*x/(1+4*x - ... (continued fraction).
a(n) = Sum_{k = 0..n} 2^(n-k)*A089949(n,k). - Philippe Deléham, Oct 16 2006
G.f. 1/(2*x-G(0)) where G(k) = 2*x - 1 - k*x - x*(k+1)/G(k+1); G(0)=x (continued fraction, Euler's 1st kind, 1-step). - Sergei N. Gladkovskii, Aug 14 2012
G.f.: 1/(2*x) - 1/(G(0) - 1) where G(k) = 1 + x*(k+1)/(1 - 1/(1 + 1/G(k+1)));(continued fraction, 3-step). - Sergei N. Gladkovskii, Nov 20 2012
G.f.: 1 + x/(G(0)-2*x) where G(k) = 1 + (k+1)*x - x*(k+3)/G(k+1); (continued fraction). - Sergei N. Gladkovskii, Dec 26 2012
G.f.: (1 + 1/Q(0))/2, where Q(k) = 1 + k*x - x*(k+2)/Q(k+1); (continued fraction). In general, the g.f. for row (r+2) is (r + 1 + 1/Q(0))/(r + 2). - Sergei N. Gladkovskii, May 04 2013
G.f.: W(0), where W(k) = 1 - x*(k+1)/( x*(k+1) - 1/(1 - x*(k+3)/( x*(k+3) - 1/W(k+1) ))); (continued fraction). - Sergei N. Gladkovskii, Aug 26 2013
a(n) ~ n! * n^2/2 * (1 - 1/n - 2/n^2 - 8/n^3 - 52/n^4 - 436/n^5 - 4404/n^6 - 51572/n^7 - 683428/n^8 - 10080068/n^9 - 163471284/n^10), where the coefficients are given by (n+2)*(n+1)/n^2 * Sum_{k>=0} A260491(k)/(n+2)^k. - Vaclav Kotesovec, Jul 27 2015
a(n) = -A077607(n+2)/2. - Vaclav Kotesovec, Jul 29 2015
From Peter Bala, Jul 12 2022: (Start)
O.g.f: A(x) = ( Sum_{k >= 0} ((k+2)!/2!)*x^k )/( Sum_{k >= 0} (k+1)!*x^k ).
A(x)/(1 - 2*x*A(x)) = Sum_{k >= 0} ((k+2)!/2!)*x^k.
Riccati differential equation: x^2*A'(x) + 2*x*A^2(x) - (1 + x)*A(x) + 1 = 0.
Apply Stokes 1982 to find that A(x) = 1/(1 - x/(1 - 3*x/(1 - 2*x/(1 - 4*x/(1 - 3*x/(1 - 5*x/(1 - ... - n*x/(1 - (n+2)*x/(1 - ...))))))))), a continued fraction of Stieltjes type. (End)

A260578 Coefficients in asymptotic expansion of sequence A259869.

Original entry on oeis.org

1, 0, -2, -6, -29, -196, -1665, -16796, -194905, -2549468, -37055681, -592013436, -10307671769, -194225544124, -3937581243201, -85460277981116, -1977127315636969, -48573021658496348, -1262954975286604673, -34650561545808167292, -1000438355724912080873

Offset: 0

Vaclav Kotesovec, Jul 29 2015

sign

For k > 1 is a(k) negative.

			A259869(n) / (n!/exp(1)) ~ 1 - 2/n^2 - 6/n^3 - 29/n^4 - 196/n^5 - 1665/n^6 - ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..132
Richard J. Martin, and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.

Cf. A259869, A256168, A260491, A260503, A260530, A260532, A260948, A260949, A260950.

nmax = 20; b = CoefficientList[Assuming[Element[x, Reals], Series[x^2*E^(2 + 2/x)/ExpIntegralEi[1 + 1/x]^2, {x, 0, nmax}]], x]; Flatten[{1, Table[Sum[b[[k+1]]*StirlingS2[n-1, k-1], {k, 1, n}], {n, 1, nmax}]}] (* Vaclav Kotesovec, Aug 03 2015 *)

a(k) ~ -k! / (2 * exp(1) * (log(2))^(k+1)).

A256168 Coefficients in asymptotic expansion of sequence A052186.

Original entry on oeis.org

1, -2, 1, -1, -9, -59, -474, -4560, -50364, -625385, -8622658, -130751886, -2163331779, -38793751015, -749691306018, -15535914341831, -343749787006758, -8089725377931547, -201801866906374263, -5319643146604299835, -147774950436327236681

Offset: 0

Vaclav Kotesovec, Mar 17 2015

sign

For k > 2 is a(k) negative.

			A052186(n) / n! ~ 1 - 2/n + 1/n^2 - 1/n^3 - 9/n^4 - 59/n^5 - 474/n^6 - ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..394
Richard J. Martin, and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.

Cf. A052186, A260491, A260503, A260530, A260532, A260578.

nmax = 30; b = CoefficientList[Assuming[Element[x, Reals], Series[E^(2/x) / (ExpIntegralEi[1/x] + E^(1/x))^2, {x, 0, nmax}]], x]; Flatten[{1, Table[Sum[b[[k+1]]*StirlingS2[n-1, k-1], {k, 1, n}], {n, 1, nmax}]}] (* Vaclav Kotesovec, Aug 03 2015 *)

a(k) ~ -(k-1)! / (log(2))^k.

A077607 Convolutory inverse of the factorial sequence.

Original entry on oeis.org

1, -2, -2, -8, -44, -296, -2312, -20384, -199376, -2138336, -24936416, -314142848, -4252773824, -61594847360, -950757812864, -15586971531776, -270569513970944, -4959071121374720, -95721139472072192, -1941212789888952320, -41271304403571227648

Offset: 1

Clark Kimberling, Nov 11 2002

sign

|a(n)| is the number of permutations on [n] for which no proper initial interval of [n] is mapped to an interval. - David Callan, Nov 11 2003

			a(4)= -8 = -24*1-6*(-2)-2*(-2). (a(1),a(2),...,a(n))(*)(1,2,3!,...,n!)=(1,0,0,...,0), where (*) denotes convolution.

Alois P. Heinz, Table of n, a(n) for n = 1..449
Jean-Christophe Aval, Jean-Christophe Novelli, Jean-Yves Thibon, The # product in combinatorial Hopf algebras, dmtcs:2892 - Discrete Mathematics & Theoretical Computer Science, January 1, 2011, DMTCS Proceedings vol. AO, 23rd International Conference on Formal Power Series and Algebraic Combinatorics (FPSAC 2011).
Richard J. Martin, and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.
Ioannis Michos, Christina Savvidou, Enumeration of super-strong Wilf equivalence classes of permutations, arXiv:1803.08818 [math.CO], 2018.
Vincent Pilaud, V. Pons, Permutrees, arXiv preprint arXiv:1606.09643 [math.CO], 2016 (Unsigned version).

Cf. A000142, A003319, A111529, A260491.

a:= proc(n) option remember; `if`(n=1, 1,
      -add((n-i+1)!*a(i), i=1..n-1))
    end:
seq(a(n), n=1..25);  # Alois P. Heinz, Dec 20 2017

Clear[a]; a[1]=1; a[n_]:=a[n]=Sum[-(n-j+1)!*a[j],{j,1,n-1}]; Table[a[n],{n,1,20}] (* Vaclav Kotesovec, Jul 27 2015 *)
terms=21; 1/Sum[(k+1)!*x^k, {k, 0, terms}]+O[x]^terms // CoefficientList[#, x]& (* Jean-François Alcover, Dec 20 2017, after Vladeta Jovovic *)

def A077607_list(len):
    R, C = [1], [1]+[0]*(len-1)
    for n in (1..len-1):
        for k in range(n, 0, -1):
            C[k] = C[k-1] * (k+1)
        C[0] = -sum(C[k] for k in (1..n))
        R.append(C[0])
    return R
print(A077607_list(21)) # Peter Luschny, Feb 28 2016

a(n) = -n!*a(1)-(n-1)!*a(2)-...-2!*a(n-1), with a(1)=1.
G.f.: 1/Sum_{k>=0} (k+1)!*x^k. - Vladeta Jovovic, May 04 2003
From Sergei N. Gladkovskii, Aug 15 2012 - Nov 07 2013: (Start)
Continued fractions:
G.f.: U(0) - x where U(k) = 1-x*(k+1)/(1-x*(k+2)/U(k+1)).
G.f.: A(x) = G(0) - x where G(k) = 1 + (k+1)*x - x*(k+2)/G(k+1).
G.f.: G(0) where G(k) = 1 - x*(k+2)/(1 - x*(k+1)/G(k+1)).
G.f.: (x-x^(2/3))/(Q(0)-1), where Q(k) = 1-(k+1)*x^(2/3)/(1-x^(1/3)/(x^(1/3) - 1/Q(k+1))).
G.f.: 1 - x - x/Q(0), where Q(k)= 1 + k*x - x*(k+2)/Q(k+1).
G.f.: 2/G(0) where G(k)= 1 + 1/(1 - x*(k+2)/(x*(k+2) + 1/G(k+1))).
G.f.: 1/W(0) where W(k) = 1-x*(k+2)/(x*(k+2)-1/(1 - x*(k+1)/(x*(k+1) - 1/W(k+1)))).
G.f.: x/(1- Q(0)) - x, where Q(k) = 1  - (k+1)*x/(1  - (k+1)*x/Q(k+1)).
G.f.: 1-x-x*T(0), where T(k) = 1-x*(k+2)/(x*(k+2)-(1+k*x)*(1+x+k*x)/T(k+1)). (End)
a(n) ~ -n! * (1 - 4/n - 8/n^3 - 76/n^4 - 752/n^5 - 8460/n^6 - 107520/n^7 - 1522124/n^8 - 23717424/n^9 - 402941324/n^10), for coefficients see A260491. - Vaclav Kotesovec, Jul 27 2015
a(n) = -2*A111529(n-2), for n>=2. - Vaclav Kotesovec, Jul 29 2015

More terms from Vaclav Kotesovec, Jul 29 2015

A260532 Coefficients in asymptotic expansion of sequence A051295.

Original entry on oeis.org

1, 2, 7, 31, 165, 1025, 7310, 59284, 543702, 5618267, 65200918, 846462826, 12229783811, 195394019337, 3427472046792, 65526442181293, 1355785469986828, 30166624979467869, 717769036033944699, 18174105506247664633, 487655384740384445407, 13816406622559942660420

Offset: 0

Vaclav Kotesovec, Jul 28 2015

nonn

			A051295(n)/(n-1)! ~ 1 + 2/n + 7/n^2 + 31/n^3 + 165/n^4 + 1025/n^5 + 7310/n^6 + ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..134
Richard J. Martin, and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.

Cf. A051295, A134378, A256168, A260491, A260503, A260530, A260578.

nmax = 30; b = CoefficientList[Assuming[Element[x, Reals], Series[E^(2/x)*x / (ExpIntegralEi[1/x] - E^(1/x))^2, {x, 0, nmax+1}]], x]; Table[Sum[b[[k+1]] * StirlingS2[n, k-1], {k, 1, n+1}], {n, 0, nmax}] (* Vaclav Kotesovec, Aug 03 2015 *)

a(k) ~ 2 * (k-1)! / (log(2))^k.

a(n) = Sum_{k=0..n} A134378(k) * Stirling2(n, k). - Vaclav Kotesovec, Aug 04 2015

A260530 Coefficients in asymptotic expansion of sequence A051296.

Original entry on oeis.org

1, 2, 7, 35, 216, 1575, 13243, 126508, 1359437, 16312915, 217277446, 3194459333, 51557948291, 908431129702, 17376289236947, 358847480175063, 7959468559605624, 188702262366570387, 4760773506835189975, 127312428854513811012, 3596091234340397964321

Offset: 0

Vaclav Kotesovec, Jul 28 2015

nonn

			A051296(n) / n! ~ 1 + 2/n + 7/n^2 + 35/n^3 + 216/n^4 + 1575/n^5 + 13243/n^6 + ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..132
Richard J. Martin, and Michael J. Kearney, Integral representation of certain combinatorial recurrences, Combinatorica: 35:3 (2015), 309-315.

Cf. A051296, A256168, A260491, A260503, A260532, A260578.

nmax = 30; b = CoefficientList[Assuming[Element[x, Reals], Series[E^(2/x)*x^2 / (ExpIntegralEi[1/x] - 2*x*E^(1/x))^2, {x, 0, nmax}]], x]; Flatten[{1, Table[Sum[b[[k+1]]*StirlingS2[n-1, k-1], {k, 1, n}], {n, 1, nmax}]}] (* Vaclav Kotesovec, Aug 03 2015 *)

a(k) ~ k! / (2 * (log(2))^(k+1)).

A305275 Coefficients in asymptotic expansion of sequence A302557.

Original entry on oeis.org

1, 0, 2, 6, 35, 256, 2187, 21620, 243947, 3098528, 43799819, 682540780, 11630529643, 215190967544, 4296657514283, 92083313483300, 2108244638675035, 51350077108834832, 1325682930813985547, 36157047428501464220, 1038793351537388253211, 31354977545074731373512

Offset: 0

Vaclav Kotesovec, Aug 18 2018

nonn

			A302557(n) / (exp(-1) * n!) ~ 1 + 2/n^2 + 6/n^3 + 35/n^4 + 256/n^5 + 2187/n^6 + ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..75

Cf. A256168, A260491, A260503, A260530, A260532, A260578, A260948, A260949, A260950, A302557.

a(k) ~ k! / (2 * exp(1) * (log(2))^(k+1)).

cp's OEIS Frontend

A260503 Coefficients in an asymptotic expansion of sequence A003319.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A111529 Row 2 of table A111528.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A260578 Coefficients in asymptotic expansion of sequence A259869.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A256168 Coefficients in asymptotic expansion of sequence A052186.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A077607 Convolutory inverse of the factorial sequence.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Sage

Formula

Extensions

A260532 Coefficients in asymptotic expansion of sequence A051295.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A260530 Coefficients in asymptotic expansion of sequence A051296.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A305275 Coefficients in asymptotic expansion of sequence A302557.