A356785
E.g.f. satisfies log(A(x)) = x * (exp(x*A(x)) - 1) * A(x).
Original entry on oeis.org
1, 0, 2, 3, 64, 365, 7356, 85687, 1920752, 34821369, 905128300, 22172123171, 672107454888, 20552960420005, 721088019634724, 26257726364294895, 1053711696230404576, 44336326818388565105, 2010106841636689325532, 95747319823049127621019
Offset: 0
-
nmax = 19; A[_] = 1;
Do[A[x_] = Exp[x*(Exp[x*A[x]]-1)*A[x]] + O[x]^(nmax+1) // Normal, {nmax}];
CoefficientList[A[x], x]*Range[0, nmax]! (* Jean-François Alcover, Mar 04 2024 *)
-
a(n) = n!*sum(k=0, n\2, (n+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!);
A349560
E.g.f. satisfies log(A(x)) = (exp(x*A(x)) - 1) * x.
Original entry on oeis.org
1, 0, 2, 3, 40, 245, 2976, 35287, 524560, 8790777, 165530800, 3493679651, 80812685064, 2049413147509, 56294089065592, 1668771901644135, 53057068616526496, 1801519375618579313, 65063987978980974048, 2490449984485154892235, 100716775979173952155480
Offset: 0
-
a:= n-> n!*coeff(series(RootOf(A=exp(x*exp(x*A)-x), A), x, n+1), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Nov 22 2021
-
nmax = 20; A[] = 0; Do[A[x] = Exp[(E^(x*A[x]) - 1)*x] + O[x]^(nmax + 1) // Normal, nmax + 1]; CoefficientList[A[x], x] * Range[0, nmax]! (* Vaclav Kotesovec, Nov 22 2021 *)
-
my(A=1,n=22); for(i=1, n, A=exp((exp(x*A)-1)*(x+x*O(x^n)))); Vec(serlaplace(A))
-
a(n) = n!*sum(k=0, n\2, (n-k+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!); \\ Seiichi Manyama, Aug 27 2022
A356788
E.g.f. satisfies log(A(x)) = x * (exp(x*A(x)) - 1) * A(x)^2.
Original entry on oeis.org
1, 0, 2, 3, 88, 485, 13896, 158767, 4919664, 90698841, 3130084360, 81025744811, 3144372342552, 104942286748741, 4582896912897408, 186591555463556895, 9135453970592830816, 437146665470130792497, 23852990622867670807704, 1307029600226135900982835
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (n+k+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!);
A356798
E.g.f. satisfies log(A(x)) = x * (exp(x) - 1) * A(x)^3.
Original entry on oeis.org
1, 0, 2, 3, 88, 425, 13476, 130417, 4543120, 71005041, 2723297860, 60685651961, 2564091428856, 75166650583609, 3496499475113932, 127585829832674865, 6521845096842043936, 284745004488498858209, 15950013722559213419412, 809403234909367349670409
Offset: 0
-
nmax = 19; A[_] = 1;
Do[A[x_] = Exp[x*(Exp[x] - 1)*A[x]^3] + O[x]^(nmax+1) // Normal, {nmax}];
CoefficientList[A[x], x]*Range[0, nmax]! (* Jean-François Alcover, Mar 05 2024 *)
-
a(n) = n!*sum(k=0, n\2, (3*k+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!);
-
my(N=20, x='x+O('x^N)); Vec(serlaplace(sum(k=0, N, (3*k+1)^(k-1)*(x*(exp(x)-1))^k/k!)))
-
my(N=20, x='x+O('x^N)); Vec(serlaplace(exp(-lambertw(3*x*(1-exp(x)))/3)))
-
my(N=20, x='x+O('x^N)); Vec(serlaplace((lambertw(3*x*(1-exp(x)))/(3*x*(1-exp(x))))^(1/3)))
A356882
E.g.f. satisfies: A(x) * log(A(x)) = x * (exp(x*A(x)) - 1).
Original entry on oeis.org
1, 0, 2, 3, 16, 125, 756, 7567, 85968, 994905, 14373460, 225366251, 3800667960, 72169966453, 1469546796732, 32150706096615, 760806334538656, 19142440567996721, 512272692571487652, 14560087915617858883, 436598686303562722440, 13796641165956117509901
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (n-2*k+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!);
A356883
E.g.f. satisfies: A(x)^2 * log(A(x)) = x * (exp(x*A(x)) - 1).
Original entry on oeis.org
1, 0, 2, 3, -8, 5, 696, 2527, -40144, -178407, 8337880, 76134971, -1781542344, -24938260763, 691630553264, 14216543752335, -312910463346464, -9343318015483471, 195539694928047144, 8145971436703039363, -142317653823753257560, -8498984155838272275459
Offset: 0
-
a(n) = n!*sum(k=0, n\2, (n-3*k+1)^(k-1)*stirling(n-k, k, 2)/(n-k)!);
Showing 1-6 of 6 results.