|
|
A347978
|
|
E.g.f.: 1/(1 + x)^(1/(1 - x)).
|
|
0
|
|
|
1, -1, 0, -3, 4, -30, 186, -630, 11600, -26712, 1005480, -2581920, 117196872, -485308824, 17734457664, -131070696120, 3387342915840, -43890398953920, 801577841697216, -17363169328243392, 233460174245351040, -7968629225100337920, 84363134551361043840
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: exp( Sum_{k>=1} x^k * Sum_{j=1..k} (-1)^j / j ).
a(0) = 1; a(n) = -Sum_{k=1..n} binomial(n-1,k-1) * A024167(k) * a(n-k).
a(0) = 1; a(n) = -Sum_{k=1..n} binomial(n,k) * A073478(k) * a(n-k).
|
|
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}]
|
|
PROG
|
(PARI) my(x='x+O('x^30)); Vec(serlaplace(1/(1+x)^(1/(1-x)))) \\ Michel Marcus, Sep 22 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|