A347978 E.g.f.: 1/(1 + x)^(1/(1 - x)).
1, -1, 0, -3, 4, -30, 186, -630, 11600, -26712, 1005480, -2581920, 117196872, -485308824, 17734457664, -131070696120, 3387342915840, -43890398953920, 801577841697216, -17363169328243392, 233460174245351040, -7968629225100337920, 84363134551361043840
Offset: 0
Keywords
Programs
-
Mathematica
nmax = 22; CoefficientList[Series[1/(1 + x)^(1/(1 - x)), {x, 0, nmax}], x] Range[0, nmax]! A024167[n_] := n! Sum[(-1)^(k + 1)/k, {k, 1, n}]; a[0] = 1; a[n_] := a[n] = -Sum[Binomial[n - 1, k - 1] A024167[k] a[n - k], {k, 1, n}]; Table[a[n], {n, 0, 22}] -
PARI
my(x='x+O('x^30)); Vec(serlaplace(1/(1+x)^(1/(1-x)))) \\ Michel Marcus, Sep 22 2021