A349561 E.g.f. satisfies: A(x)^A(x) = 1/(1 - x).
1, 1, 0, 3, -8, 100, -834, 11438, -159928, 2762352, -52322160, 1124320032, -26509832040, 686751503568, -19306448087640, 586539826169880, -19131996548499264, 667157522614934016, -24762890955027112128, 974824890777753840576, -40566428716555791936000
Offset: 0
Keywords
Examples
A(x) - 1 = x + 3*x^3/6 - 8*x^4/24 + ... = x + x^3/2 - x^4/3 + ... .
A(x)^A(x) = (1 + (A(x) - 1))^(1 + (A(x) - 1)) = Sum_{k>=0} A005727(k) * (A(x) - 1)^k / k! = 1 + 1 * (x + x^3/2 - x^4/3 + ... )/1! + 2 * (x + x^3/2 - x^4/3 + ... )^2/2! + 3 * (x + x^3/2 - x^4/3 + ... )^3/3! + ... = 1 + x + x^2 + x^3 + ... = 1/(1 - x).
Links
- Seiichi Manyama, Table of n, a(n) for n = 0..398
- Eric Weisstein's World of Mathematics, Lambert W-Function.
Programs
-
Mathematica
Join[{1}, Table[(n-1)! - (-1)^n*Sum[(k-1)^(k-1)*StirlingS1[n, k], {k, 2, n}], {n, 1, 20}]] (* Vaclav Kotesovec, Nov 22 2021 *) -
PARI
a(n) = (-1)^(n-1)*sum(k=0, n, (k-1)^(k-1)*stirling(n, k, 1));
-
PARI
my(N=20, x='x+O('x^N)); Vec(serlaplace(-sum(k=0, N, (k-1)^(k-1)*log(1-x)^k/k!))) -
PARI
my(N=20, x='x+O('x^N)); Vec(serlaplace(-log(1-x)/lambertw(-log(1-x))))
Formula
a(n) = (-1)^(n-1) * Sum_{k=0..n} (k-1)^(k-1) * Stirling1(n,k).
E.g.f. A(x) = -Sum_{k>=0} (k-1)^(k-1) * (log(1-x))^k / k!.
E.g.f.: A(x) = -log(1-x)/LambertW(-log(1-x)).
a(n) ~ -(-1)^n * n^(n-1) / ((exp(exp(-1)) - 1)^(n - 1/2) * exp(n + exp(-1)/2 + 1/2)). - Vaclav Kotesovec, Nov 22 2021